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1.0 ABSTRACT 

THE DIAGNOSTICS FOR THE LA180 PRINTER ARE DESIGNED TO EXERCISE ALL 
AREAS OF THE PR INTER, SIMULATING WORSE CASE CONDITIONS TO DETECT BOTH 
MECHANICAL AND ELECTRICAL FAULTS. ADDITIONAL FACILITIES WITHIN THE 
DIAGNOSTIC PROGRAM WILL AID IN ISOLATION OF ANY FAULT CONDITIONS 
DETECTED, 

OPERATION OF THE DIAGNOSTIC PROGRAM WILL BE CONTROLLED FROM THE 
PROCESSOR SWITCH REGISTER OR FROM AN AVAILABLE CONSOLE DEVICE. THE 
OPERATOR WILL BE GIVEN AS MUCH CONTROL OVER THE OPERATION CF THE 
PROGRAM AS POSSIBLE WHILE TRYING TO KEEP THE CONTROL SCHEME SIMPLE. 

THIS DIAGNOSTIC PROGRAM WAS DESIGNED TO RON IN 4K OR LESS OF MEMORY 
AND TO BE COMPATIBLE WITH ACT AMD XXDP. 



2-0 REQUIREMENTS 



2,1 EQUIPMENT 

THIS DIAGNOSTIC WAS WRITTEN TO RUN ON ALL MODELS OF THE PDP-11 
PROCESSCR WITH A LA180 PRINTER USING EITHER A STANDARD PARALLEL 
INTERFACE OR A KLll/DLll SERIAL INTERFACE* MULTIPLE LA180'S, ON 
INDIVIDUAL INTERFACES, CAN BE RUN TOGETHER PROVIDING THEY ARE ON 
EITHER ALL SERIAL QR ALL PARALLEL INTERFACES, AND PROVIDING THEIR 
ADDRESS ASSIGNMENTS ARE CONTIGUOUS. THE PROGRAM WILL USE A STANDARD 
CONSOLE DEVICE, IF AVAILABLE, FOR OPERATOR INSTRUCTIONS AND ERROR 
REPORTING. IT IS SUGGESTED THAT A CONSOLE DEVICE BE USED WHEN RUNNING 
THIS DIAGNOSTIC BUT IT IS NOT RFGUIRED IF THE CPU HAS A HARDWARE 
SWITCH REGISTER. IF ANY NON-STANDARD ADDRESSES ARE USED FOR EITHER 
THE LA160 OR THE CONSOLE DEVICE, CHANGE THE ADDRESSES IN THE COMMON 
TAG AREA OF THE PROGRAM (STARTING AT LOCATION 1100). 



2.2 STORAGE 

THIS PROGRAM USES MOST OF 4K OF MEMORY WITHOUT AFFECTING THE AREA USED 
BY THE ABSOLUTE LOADER. 



2.3 PRELIMINARY PROGRAMS 

ALL APPLICABLE PDP-11 DIAGNOSTICS SHOULD BE RUN SUCCESSFULLY ON THE 
PRCCESSOR. 
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3-0 LOADING PROCEDURE & INITIALIZATION 

LOAD THE LA180 DIAGNOSTIC PROGRAM FOLLOWING NORMAL PROCEDURES. 

IF A HARDWARE SWITCH REGISTER DOES NOT EXIST OR ALL SWITCHES ARE 
PLACED UP BEFORE STARTING THE DIAGNOSTIC, THE PROGRAM WILL USE THE 
CONTENTS OF LOCATION 176 AS THE VALUE OF THE SWITCHES. THEREFORE, 
WHEN USING THE SOFTWARE SWITCH REGISTER BE SURE TO LOAD LOCATION 176 
WITH THE DESIRED SWITCH VALUE BEFORE STARTING THE PROGRAM. REFER TO 
SECTION S.3 FOR DETAILS ON DYNAMIC SOFTWARE SWITCH REGISTER CONTROL. 

REFER TO SECTION 5*5 FOR INTERFACE CONTROL INFORMATION* 

REFER TO THE TEST ADDRESS TABLE IN THE PROGRAM LISTING FOR DETAILS ON 
CHANGING THE PRINTING TEST SEQUENCE OR DELETING TESTS FROM THE 
DIAGNOSTIC 



4.0 STARTING PROCEDURES 



STARTING ADDRESSES : 



20C = GENERAL START: 

RUN OPERATOR INTERVENTION TESTS THEN ENTER PRINTING TEST 
SEQUENCE. FOR USE ON SINGLE-PARALLEL INTERFACE ONLY. 

6CC = RESTART; 

ENTER PRINTING TEST SEGUENCE DIRECTLY SKIPPING OPERATOR 
INTERVENTION TESTS. 

604 = GO DIRECTLY TO CONSOLE TERMINAL KEYBOARD CONTROL - SELECT 
TEST. 



STARTING AT 200 WILL RUN THE ENTIRE DIAGNOSTIC PACKAGE. THE PROGRAM 
WILL FIRST EXECUTE THE OPERATOR INTERVENTION TESTS AND THEN ENTER THE 
PRINTING TEST SEGUENCE WHERE IT WILL LOOP CONTINUOUSLY- STARTING AT 
600 (THE RESTART) WILL SKIP THE OPERATOR INTERVENTION TESTS AND ENTER 
THE PRINTING TEST SEGUENCE DIRECTLY. STARTING AT 604 WILL CAUSE THE 
PROGRAM TO GO DIRECTLY TO CONSOLE KEYBOARD CONTROL IF A CONSOLE DEVICE 
EXISTS, OTHERWISE, THE PROGRAM V ILL HALT WAITING FOR A TEST SELECTION 
FROM THE SWITCH REGISTER. ALSO, BY PLACING THE HALT AND SELECT TEST 
SWITCH UP (1) BEFURE STARTING THE DIAGNOSTIC, THE DIAGNOSTIC WILL HALT 
WAITING FOR A TEST SELECTION FROM THE SWITCH REGISTER AFTER 
INITIALIZATION OF THE PROGRAM. 



TO START THE DIAGNOSTIC PROGRAM; SET THE DESIRED STARTING ADDRESS IN 
THE SWITCH REGISTER AND DEPRESS LOAD ADDRESS, SET THE SWITCH REGISTER 
uPTICNS AS DESIRED (SEE SECTICN 5.1), AND DEPRESS START* THE 
DIAGNOSTIC PROGRAM WILL NOW RUN IN THE MANNER SELECTED* 
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5,C OPERATING PROCEDURES 
5,1 SWITCH REGISTER CONTROLS 

THE FOLLOWING, BASIC CONTROL FUNCTIONS ARE AVAILABLE THROUGH THE USE 
OF THE SWITCH REGISTER. IF A HARDWARE SWITCH REGISTER DOES NOT EXIST 
OR ALL SWITCHES WERE SET UP BEFORE STARTING THE DIAGNOSTIC, THE 
PROGRAM WILL USE THE CONTENTS OF LOCATION 176 AS THE VALUE OF THE 
SWITCH REGISTER « REFER TO SECTION 5*3 FOR DETAILS ON SSR CONTROL. 



SWITCH POSITION FUNCTION 



15 1 (UP) STOP ON ERROR 

(DWN) CONTINUE ON ERROR 



14 1 (UP) LOOP ON TEST 

(DWN) NORMAL OPERATION 



13 1 (UP) INHIBIT ERROR TYPEQUT 

(DWN) NORMAL OPERATION 



11 MANUAL TIMING - OVER ALL 

PRINT SPEED TIMING 



10 1 (UP) BELL ON ERROR 

(DWN) NORMAL OPERATION 



09 1 (UP) SINGLE CHAR - SCOPE ROUTINE 

(DWN) FULL LINES 



08 1 (UP) HALT & SELECT TEST 

C (DWN) NORMAL OPERATION 



07-00 # COLUMNS AT START UP. 

05- 00 TEST SELECTION DURING DIAG. 

06- 00 CHAR SELECTION FOR SCOPE ROUTINE 
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5.1.1 SWITCH 15 - STOP ON ERROR 

WITH THIS SWITCH UP (1), THE PROGRAM WILL HALT OR WAIT FOR A KEYBOARD 
ON ANY DETECTED ERROR. WHEN DOWN (0), THE PROGRAM WILL CONTINUE ON 

ERROR IF POSSIBLE. 



5.1.2 SWITCH 14 - LOOP ON TEST 

WITH THIS SWITCH UP (1), THE PRCGRAM WILL CONTINUE TO LOOP ON THE 
CURRENT TEST UNTIL THIS SWITCH IS PLACED DOWN (0). AFTER RETURNING 
THIS SWITCH TO THE DOWN (0) POSITION, THE TEST WILL CONTINUE NORMAL 
OPERATION AT THE COMPLETION OF THE CURRENT TEST. THUS, WHENEVER THIS 
SWITCH IS DOWN (C), THE PROGRAM WILL CONTINUE NORMAL OPERATION. 



5.1.3 SWITCH 13 - INHIBIT ERROR TYPEOUT 

WHENEVER THIS SWITCH IS IN THE UP (1) POSITION, ERROR TYPEOUTS WILL 
NOT OCCUR. 



5.1.4 SWITCH 11 - MANUAL TIMING 

THIS SWITCH WILL BE USED TO MANUALLY TIME THE OVERALL PRINT SPEED OF 
THE LA180 PRINTER IF A CLOCK OPTION DCES NOT EXISTi 



5.1.5 SWITCH 10 - BELL ON ERROR 

PLACING THIS SWITCH UP (1) WILL CAUSE THE CONSOLE (IF AVAILABLE) TO 
RING A BELL WHENEVER AN ERROR CONDITION IS DETECTED IN THE LA180 

PRINTER. 



5.1.6 SWITCH 9 - SINGLE CHAR/FULL LINES CHAR 

THIS SWITCH ft ILL BE USED TO SELFCT WHETHER TO SEND ONLY A SINGLE 
CHARACTER OR FULL LINES OF CHARACTERS TO THE LA180 PRINTER DURING TEST 
bl ONLY. 
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5.1.7 SWITCH 8 - HALT & SELECT TEST 

THE PROGRAM WILL HALT WHENEVER THIS SWITCH IS PLACED IN THE UP (1) 
POSITION* AT THAT TIME, SET THE DESIRED TEST NUMBER IN THE PROPER 
POSITION IN THE PROCESSOR SWITCH REGISTER. 

TO START THE NORMAL TEST SEQUENCE WITH THE SELECTED TEST, PLACE THE 
HALT AND SELECT TEST SWITCH DOWN (C) THEN DEPRESS THE CONTINUE SWITCH. 

TO RUN A SELECTED TEST ONCE AND HALT, LEAVE THE HALT AND SELECT TEST 
SWITCH UP (1) AND DEPRESS CONTINUE. THE PROGRAM WILL EXECUTE ONE 
COMPLETE PASS OF THE SELECTED TEST, THEN HALT WAITING FOR ANOTHER TEST 
SELECTION. TO HALT THE PROGRAM DURING EXECUTION OF THE SELECTED TEST, 
PLACE THE HALT S, SELECT TEST SWITCH DOWN (0) AT ANY TIME. THE PROGRAM 
WILL HALT AT THE COMPLETION OF THE CURRENT OPERATION AND WAIT FOR 
ANOTHER TEST SELECTION. 



5.1.8 SELECTION OF NUMBER OF COLUMNS 

THESE SWITCHES WILL BE USED WHEN THE PROGRAM IS FIRST STARTED TO INPUT 
THE DESIRED, MAXIMUM NUMBER CF COLUMNS THE DIAGNOSTIC IS TO TEST. THE 
NUMBER SET MUST BE IN OCTAL AND BE EQUAL TO OR GREATER THAN 2 AND LESS 
THAN OR EQUAL TO 132(10). IF THE SWITCHES ARE NOT SET WITHIN THESE 
SET LIMITS, THE PROGRAM WILL DEFAULT TO TESTING 132(10) COLUMNS. 
THUS, LEAVING THESE SWITCHES DOWN (0C0) THE PROGRAM WILL AUTOMATICALLY 
TEST THE FULL 132(10) COLUMNS. 



5.1.S TEST SELECTION 



THESE SWITCHES WILL BE USED TO SELECT A DESIRED TEST WHENEVER THE HALT 
AND SELECT TEST SWITCH IS USED TO HALT THE DIAGNOSTIC PROGRAM. 
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5.2 CONSOLE TERMINAL - KEYBOARD CONTROL 

WHENEVER A CONSOLE TERMINAL IS DETERMINED TO BE AVAILABLE BY THE 
PROGRAM, THE DIAGNOSTIC WILL BE CAPABLE OF BEING CONTROLLED FROM THE 
KEYBOARD OF THE CONSOLE DEVICE* TYPING A RUBOUT (DEL) ON THE CONSOLE 
KEYBOARD AT ANY TIME WILL CAUSE THE PROGRAM TO STOP AND PRINT THE 
FOLLOWING MESSAGE ON THE CONSOLE DEVICES 

SELECT TEST #: 



TYPE ANY LEGAL TEST NUMBER FOLLOWED BY ONE OF 
CHARACTERS AND A CARRIAGE RETURN: 



THE FOLLOWING CONTROL 



CHARACTER 



FUNCTION 



(PERIOD) 



RUN TEST ONCE & RETURN TO TEST SELECTION 
LOOP ON SELECTED TEST 



START SEQUENCE WITH SELECTED TEST 



THE L AND S MAY BE EITHER UPPER OR LOWER CASE BUT 
ALWAYS BE ENTERED AS 2 DIGIT NUMBERS. 



TEST NUMBERS MUST 



TO RESET THE DESIRED MAXIMUM NUMBER OF COLUMNS, TYPE A CONTROL-C (~C) 
ON THE CONSOLE TERMINAL KEYBOARD AT ANY TIME, THE FOLLOWING MESSAGE 
WILL BE TYPED ON THE CONSOLE DEVICE: 

# COLUMNS = 

TYPE IN THE DESIRED NUMBER OF COLUMNS (IN DECIMAL) ON THE CONSOLE 
KEYBOARD FOLLOWED BY A CARRIAGE- RETURN- IF THE SELECTED NUMBER IS 
LESS THAN 2 OR GREATER THAN 132(10) THE MESSAGE WILL BE REPEATED AND 
YOU MUST REENTER THE NUMBER OF COLUMNS. WHEN A CORRECT NUMBER IS 
ENTERED, THE PROGRAM WILL THEN ASK ^OR A TEST SELECTION AS DESCRIBED 
PREVIOUSLY IN THIS SECTION. 



TO CHANGE THE NUMBER OF COLUMNS WHEN WAITING FOR A TEST SELECTION, 
TYPE A CONTROL-C FOLLOWED BY A CARRIAGE RETURN. WHILE INPUTTING A 
TEST SELECTION 0* COLUMN NUMBER THE RUBOUT (DEL) KEY MAY BE USED TO 
DELETE INCORRECT ENTRIES* AT ALL TIMES SWITCH REGISTER CONTROL WILL 
STILL BE EFFECTIVE, EVEN IF USING CONSOLE TERMINAL KEYBOARD CONTROL. 
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5.3 DYNAMIC SOFTWARE SWITCH REGISTER CONTROL 



WHENEVER A CONSOLE TERMINAL IS AVAILABLE AND A HARDWARE SWITCH 
REGISTER IS NOT AVAILABLE (CF ALL SWITCHES WERE UP WHEN THE PROGRAM 
WAS STARTED), THE PROGRAM WILL RECOGNIZE THE FOLLOWING DYNAMIC 
SOFTWARE SWITCH REGISTER CONTROLS 



TYPING A COMTROL-G (BEL) AT ANY TIME DURING PROGRAM EXECUTION, EXCEPT 
WHEN WAITING FOR A TEST OR COLUMN NUMBER SELECTION, WILL CAUSE THE 
DIAGNOSTIC TO STOP THE CURRENT TEST AND TYPE THE FOLLOWING MESSAGE ON 

THE CONSOLE DEVICE % 



SWR = XXXXXX NEW - 



WHERE XXXXXX IS THE CURRENT CONTENTS CF THE SOFTWARE SWITCH REGISTER 
(SSR) IN OCTAL- THE SOFTWARE CONTROL ROUTINE WILL THEN AWAIT OPERATOR 
ACTION. THE OPERATOR IS THEN REQUIRED TO TYPE ONE OR MORE OF THE 
LEGAL CHARACTERS 1) C-7, 2) LINE FEED <LF>, 3KARRIAGE RETURN <CR>, OR 
4) CONTRGL-U (*U). NO CHECK IS MADE FOR CHARACTER LEGALITY. IF THE 
INPUT CHARACTER IS NOT A LF, CR, OR ~U IT IS ASSUMED TO BE AN OCTAL 
DIGIT AND WILL BE ECHOED AS THE DIGIT THAT IS GOING TO BE STORED IN 
THE SWITCH SETTING* 



TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES THE NEW 
DESIRED VALUE IN OCTAL, LEADING ZEROS NEED NOT BE TYPED. AND 
TERMINATES THE INPUT STRING WITH A <CR> OR <LF> DEPENDING ON THE 
PROGRAM ACTION DESIRED AS DESCRIBED BELOW- THE INPUT VALUE WILL BE 
TRUNCATED TC THE LAST 6 DIGITS TYPED. AT LEAST ONE DIGIT MUST BE 
TYPED PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 



WHEN THE INPUT STRING Is TERMINATED WITH A <CR> THE DIAGNOSTIC WILL 
CONTINUE EXECUTION FROM THE POINT AT WHICH IT WAS INTERRUPTED. IF A 
<CR> IS THE ONLY THING TYPED, THE PROGRAM WILL CONTINUE WITHOUT 
CHANGING THE SSR. IF A <LF> IS f JSED TO TERMINATE THE INPUT STRING, 
THE PROGRAM WILL THEN ASK FOR A TEST SELECTION AS DESCRIBED IN SECTION 
5.2. 



IF A ~U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO THE 
TERMINATOR, THE INPUT VALUE WILL BE DISREGARDED AND THE PROMPT MESSAGE 
WILL BE REPRINTED. 
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5.4 ERRCR REPORTING ON PARALLEL INTERFACE 

IF A CONSOLE TERMINAL EXISTS AND THE INHIBIT ERROR TYPEOUT SWITCH IS 
DOWN (C), WHENEVER AN ERROR IS DETECTED THE FOLLOWING ERROR MESSAGE 
WILL BE PRINTED ON THE CONSOLE DEVICE? 

TEST #XX, PC-XXXXXX, ERRCR #XXX, MESSAGE »»»»» 

THE ERRCR MESSAGE INDICATES THE TEST NUMBER, THE LOCATION WHERE THE 
ERROR OCCURRED, THE ERROR NUMBER, AND THE TYPE OF ERROR THAT OCCURRED. 
FOR ADDITIONAL INFORMATION ON ANY ERROR CONDITION, REFER TO THE 
PROGRAM LISTING. 

WHENEVER A CONSOLE TERMINAL IS NOT AVAILABLE THE HALT ON ERROR SWITCH 
SHOULD BE USED. AFTER AN ERRCR OCCURS AND THE PROGRAM HALTS, EXAMINE 
ThE CONTENTS OF $ERRPC TO FIND THE ADDRESS WHERE THE ERROR OCCURRED 
AND SITEMB TO FIND THE ERROR NUMPER. THE TEST NUMBER WILL BE LOCATED 
IN EITHER THE HARDWARE OR SOFTWARE DISPLAY DEPENDING ON CPU TYPE- 
THEN REFER TO THE PROGRAM LISTING TO DETERMINE THE TYPE OF ERROR THAT 
OCCURRED AND TO FIND ANY ADDITIONAL INFORMATION REGARDING THAT ERROR. 
IF NEEDED, THE ERROR MESSAGES ARE LOCATED NEAR THE END OF THE PROGRAM 
LISTING* 



5.5 INTERFACE CONTROL 



THIS DIAGNOSTIC, WHEN INITIALLY LO 

SINGLE LA1PC ON A PARALLEL IN 
DIAGNOSTIC CAN BE CONDITIONED 
DEPOSITING ANY NON-ZERO QUANTITY 
AN£ FUNNING TEST 77. THE DIAGNOST 
PARALLEL INTERFACES BY DEPOSITING 
SELECTING AND RUNNING TEST 76. TH 
IS CONTROLLED BY THE QUANTITY I 
LOCATION IS PRESET TC 1 AND SHOULD 
TO BE TESTED- THE ADDRESS OF THE 
(IF ANY) SHOULD BE DEPOSITED INTO 
BEEN PRESET TO 177510. THE AD 
INTERFACE (IF ANY) SHOULD BE DEPOS 
VALUE HAS BEEN PRESET TO 175610. 



AUED, IS PRECONDITIONED TO TEST A 
TERFACE ADDRESSED AS 177510. THE 
TO RUN ON SERIAL INTERFACES BY 
INTO LOCATION SERSW OR 3Y SELECTING 
IC CAN BE RECONDITIONED TO RUN ON 
ALL ZEPCS INTO LOCATION SERSW OR BY 
E NUMBER OF INTERFACES TO BE DRIVEN 
N LOCATION NUMLP* THE VALUE IN THIS 
RE CHANGED IF MORE THAN 1 UNIT IS 
LOWEST ADDRESSED PARALLEL INTERFACE 
LOCATION FSTPAD. THIS VALUE HAS 
DRESS OF THE LOWEST ADDRESSED SERIAL 
ITED INTO LOCATION FSTSAD. THIS 



6.0 TEST DESCRIPTIONS 



6.1 OPERATOR INTERVENTION TESTS 

THIS SERIES OF TESTS CONSISTS OF ALL TESTS NORMALLY EXECUTED WHICH 
COULD POSSIBLE REQUIRE OPERATOR INTERVENTION. THESE TESTS ARE 
EXECUTED ONLY ONCE EACH WHEN THE DIAGNOSTIC IS FIRST STARTED UP. A 
DETAILED DESCRIPTION OF EACH TEST FOLLOWS % 
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6.1. 1 TEST 00 - INTERFACE I CONTROL TESTS 



THIS TEST IS DESIGNED AS A COMMAND DECODE AND CONTROL 
PARALLEL-INTERFACE TEST AND INCLUDES CHECKOUT OF THE PRINTER INTERRUPT 
FACILITY. MANUAL INTERVENTION IS REQUIRED TO TEST THE VARIOUS 

TESTABLE ERROR (NON-READY) CCNDITIONS OF THE PRINTER. OPERATOR 
INSTRUCTIONS WILL BE PRINTED ON THE CONSOLE DEVICE IF AVAILABLE THEN 
THE PROGRAM WILL WAIT FOR THE OPERATOR TO COMPLETE THE ACTION. 
DEPRESS THE SPACE BAR ON THE CONSOLE KEYBOARD OR THE CONTINUE SWITCH 
ON THE CPU IF NO CONSOLE DEVICE IS AVAILABLE TO TEST THE NEXT 
CONDITION WHEN READY. IF ANY ERROR CONDITION EXISTS OR ANY 
NON-EXPECTED RESULTS ARE ENCOUNTERED, AN ERROR MESSAGE WILL BE PRINTED 
ON ThE CONSOLE DEVICE IF AVAILABLE. (REFER TO SECTION 5.3 ON ERROR 
REPORTING. ) 



POKER SHOULD BE OFF ON THE LA180 BEFORE STARTING THIS TESTi THE 
PROGRAM WILL FIRST TEST THAT THE ERROR BIT IS SET AND THE PRINTER IS 
NOT READY WITH POWER OFF. AN INSTRUCTION WILL THEN ASK FOR THE 
PRINTER POWER TO BE TURNED ON. TURN POWER ON AND MAKE SURE THERE IS 
PAPER IN THE PRINTER AND THE PRINTER IS OFF LINE. THE DIAGNOSTIC WILL 
AGAIN CHECK THAT THE ERROR BIT IS SET AND THE PRINTER IS NOT READY. 
AN INSTRUCTION ON THE CONSOLE DEVICE WILL NEXT INFORM THE OPERATOR TO 
TURN THE LA180 ON LINE. THE PROGRAM WILL NOW CHECK THAT THE ERROR BIT 
IS CLEAR AND THE PRINTER IS READY. THE NEXT PRINTED INSTRUCTION WILL 
HAVE THE OPERATOR FORCE A PAPER OUT CONDITION BY OPENING THE PAPER 
FEED TRACTORS AND REMOVING THE PAPER FROM THE PRINTER. THE DIAGNOSTIC 
WILL CHECK THAT THE ERROR BIT IS SET AND PRINTER IS NOT READY. THE 
LAST INSTRUCTION WILL ASK TO RESTORE THE PRINTER TO ON-LINE BY 
RE-INSERTING PAPER AND CLEARING THE ERROR CONDITION. MAKE SURE THE 
PRINTER IS SET TO ON-LINE BEFORE CONTINUING. THE PROGRAM WILL TEST TO 
SEE IF THE ERROR BIT IS CLEARED AND THE PRINTER IS READY. 



THE LAST HALF OF THIS TEST WILL BE PERFORMED AUTOMATICALLY WITHOUT 
FURTHER MANUAL INTERVENTION REQUIRED. THE DIAGNOSTIC WILL ISSUE A 
RESET INSTRUCTION AND SEE THAT THE ERROR BIT IS CLEAR AND THE PRINTER 
IS READY. A CARRIAGE RETURN VILL BE LOADED TO THE PRINTER TO SEE IF 
LOADING THE CHARACTER BUFFER WILL CLEAR THE READY BIT. THE TEST WILL 
THEN CHECK THAT THE ERROR BIT IS CLEAR AND THE PRINTER READY BIT DOES 
SET WITHIN A REASONABLE AMOUNT OF TIME. THE FINAL TEST WILL CHECK 
THAT THE PRINTER WILL NOT INTERRUPT ABOVE PRIORITY LEVEL 3 AND WILL 
INTERRUPT AT ALL PRIORITY LEVELS BELOW LEVEL 4. 
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6,1.2 TEST 01 - TOP OF FORM SWITCH TEST 

THIS TEST CHECKS ALL POSITIONS GF THE TOP OF FORM SWITCH. THE PROGRAM 
WILL PRINT INSTRUCTIONS FOR THE NEXT SETTING OF THE TOP OF FORM SWITCH 
ON THE CONSOLE TERMINAL (IF AVAILABLE) AND THEN WAIT FOR THE OPERATOR 
TO COMPLETE THE ACTION- AFTER SETTING THE SWITCH/ DEPRESS THE SPACE 
BAR CF THE CONSOLE DEVICE (OR CONTINUE ON THE PROCESSOR IF NO CONSOLE 
DEVICE EXISTS) TO TEST THAT SWITCH POSITION. AFTER CHECKING ALL 
POSITIONS, THE PRINTER OUTPUT CAN HE VISUALLY VERIFIED. A LINE OF ALL 
CASHES IS PRINTED AS A STARTING POINT AND THEN LINES ARE PRINTED TO 
INDICATE THE PROPER SPACING (IN INCHES) FROM THE PREVIGUS LINE TO THAT 
LINE* 

EXAMPLES 



4.0 INCH FORM FEED 



b.l«3 TEST 02 - PRINT SPEED TIFING TEST 

THIS TEST IS DESIGNED TO TIME TPE LA180 FOR ONE FULL MINUTE WHILE A 
SWIRL PATTERN IS PRINTED TO THE SELECTED MAXIMUM NUMBER OF COLUMNS. 
IF A LIKE CLOCK OR A PROGRAMMABLE CLOCK OPTION IS DETERMINED TO BE 
AVAILABLE BY THE PROGRAM, IT WILL BE USED TO AUTOMATICALLY TIME THE 
PRINTER. WHEN NEITHER CLOCK OPTION IS AVAILABLE, MANUAL TIMING WILL 
BE USED A* ? D OPERATING INSTRUCTIONS WILL BE TYPED ON THE CONSOLE DEVICE 
IF IT IS AVAILABLE. WHICHEVER METHOD OF TIMING IS USED/ AT THE END OF 
ONE FULL MINUTE THE APPROXIMATE PRINT SPEED WILL BE PRINTED ON THE 
LA180 AND ALSO ON THE CONSOLE DEVICE (IF AVAILABLE) * REMEMBER, THE 
PRINT SPEED IS DIRECTLY RELATED TO THE NUMBER OF COLUMNS BEING 
PRINTED* ALSO, THE CONTENTS OF ONE LOCATION IN MEMORY WILL HAVE TO BE 
CHANGED IF THE LINE FREQUENCY IS 50 HZ. AND A CLOCK OPTION IS BEING 
USED FOR TIMING* 



6.2 PRINTING TESTS 

THESE TESTS ARE DESIGNED AS A TFST OF THE PRINTING MECHANISM AND THE 
ASSOCIATED CONTROL LOGIC* AT THE BEGINNING OF EACH TEST, A TEST 
HEADER WILL INDICATE THE TEST NUMBER BEING EXECUTED* THE TEST PROGRAM 
CONTINUALLY MONITORS FOR PROPER OPERATION OF THE LINE PRINTER AFTER 
EACH PRINTER OPERATION HAS BEEN COMPLETED, THROUGH THE PRINTER "READY" 
LINE AND THE SETTING OF THE "DEMAND" FLAG. IT SHOULD BE NOTED, 
HOWEVER, THAT THE "DEMAND" RETURN FROM THE PRINTER IS CONDITIONAL UPON 
THE PRINTER "READY". SINCE THE PROCESSOR CAN ONLY DETECT THE CURRENT 
CONDITION OF THE "READY" AND "DEMAND" RETURN LINES IT IS NECESSARY TO 
EXAMINE THE PRINT PATTERNS PRODUCED BY THE VARIOUS TEST ROUTINES. 
EACH PATTERN HAS BEEN CHOSEN FOR EASE OF VISUAL VERIFICATION. 
DETAILED DESCRIPTIONS OF EACH TEST PATTERN APPEARS IN THE DESCRIPTION 
OF THE FOLLOWING TEST ROUTINES. 
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6*2,1 TEST 20 - DATA TRANSFER PATHS TEST 

THIS TEST IS DESIGNED TO TEST THE DATA LINES TO AND THROUGH THE 
INTERFACE AND TO THE LA180 PRINTER. AN ALTERNATING BIT PATTERN IS 
SENT WHICH WILL PRINT ALTERNATING *'S AND ITS IN A CHECKERBOARD 
PATTERN TO THE MAXIMUM COLUMN WIDTH • THE STARTING CHARACTER FOR EACH 
LIME 15 ALTERNATED AND A TOTAL OF 16 LINES ARE PRINTED, 

EXAMPLE t 

*U*U*U*U ...... *U*U 

U*U*U*U* U*U* 

*U*U*U*U *U*U 

U*U*U*U* U*U* 



6,2-2 TEST 21 - HEAD POSITIONING TEST 

THIS TEST CHECKS THE CARRIAGE RFTURN FROM ALL EVEN NUMBERED COLUMNS 
AND THE SPACING OF THE SOLENOID HEAD FROM THE LEFT MARGIN. HOWEVER, 

THE PRIMARY PURPOSE GF THIS TEST IS TO TEST THE SOLENOID HEAD POSITION 
DECOCER FOR PROPER OPERATION. 

THE TEST PRINTS A FULL LINE OF ALTERNATING G*S AND SPACES, STARTING 
WITH A 0. AT THE END OF THE LINE THE PRINT HEAD IS RETURNED TO THE 
LEFT MARGIN WITH A CARRIAGE RETURN* THE SPACES ARE THEN FILLED IN BY 
SPACING THE PRINT HEAD OUT FROM THE LEFT MARGIN TO THE FIRST SPACE, 
PRINTING AN "X", AND EXECUTING A CARRIAGE RETURN. THIS PATTERN IS 
REPEATED UNTIL THE LINE IS COMPLETED. CHECK TO SEE THAT ALL X'S ARE 
IN THE MIDDLE OF THE SPACE BETWEEN THE TWO ADJACENT ZEROES. 

EXAMPLE: 

0X0X0X0X0X0X0X0XOX0XOX0XOXOXOX0X0XOXOXOXOX0X0XOXOXOXOX0X 



6.2.3 TEST 22 - BACKSPACE TEST 

THIS TEST IS DESIGNED TO CHECK THE BACKSPACE FEATURE OF THE LA180 
PRINTER. TWO LINES OF X'S INTERSPACED WITH DASHES WILL BE PRINTED BY 
PRINTING A SLASH, EXECUTING A BACKSPACE, AND THEN PRINTING A BACKSLASH 
TO COMPLETE EACH X CHARACTER. A MAXIMUM OF 127 COLUMNS WILL BE 
PRINTED BY THIS TEST. 



EXAMPLES 

X-X-X-X-X-X-X-X 

x-x-x-x-x-x-x-x 
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6.2.4 TEST 23 - CHARACTER GENERATOR TEST 

THIS TEST CHECKS THE SPACE ALL 94 PRINTABLE CHARACTERS (ASCII CODES 
040 TO 176) BY PRINTING A SINGLE LINE, 30 CHARACTERS LONG, OF EACH 

CHARACTER. 

EXAMPLES 

!!11!flil!!!!!!l!lll!llf!lli!l 



AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 



6*2.5 TEST 24 - NON-PRINTABLE CHARACTER TEST 

THIS TEST IS DESIGNED TO TEST THE LA180 HANDLING CF NON-PRINTABLE 
CHARACTERS AND TO EXERCISE THE FULL RANGE OF THE CHARACTER STORAGE 
BUFFER. THE TEST PATTERN PRODUCED WILL BE A 30 LINE SWIRL PATTERN, 
CONSISTING OF FULL LINES OF THE ENTIRE PRINTABLE CHARACTER SET. IF 
THIS TEST IS LOOPED ON, THE PATTERN WILL CONTINUE A FULL SWIRL, RATHER 
THAN ONLY 30 LINES AND THEN REPEATING. AS THE SWIRL PATTERN IS 
PRODl'CEC, THE GROUP OF PRI NT A ELE CHARACTERS WILL BE SHIFTED (IN 
INCREMENTS DEPENDING ON THE NUMBER OF COLUMNS BEING TESTED) THROUGH 
ThE FULL RANGE OF THE CHARACTER BUFFER, STARTING AT THE END OF THE 
BUFFER, NCN-PP INTABLE CHARACTERS W ILL PE USED TO FILL THE CHARACTER 
BUFFER BEFORE AND AFTER THE GROUP OF PRINTABLE CHARACTERS, FOR EACH 
PRINTED LINE. ALL NCN-PRINT ABLE CHARACTERS HAVING NO CONTROL FUNCTION 
WITHIN THE LA1BC WILL BE USED. 

EXAMPLE: 

*()*+,-» /0 123456789 : ? < = >?(BABC* * . . 
"*$%&*()*♦,-. /01 23456789 :;<=>?«ABCD.... 

)* + ,-./01 2245 6789 S ; <=>?@ABCDE. . » . 



6.2.6 TEST 25 - BUFFER TEST 

THIS TEST IS DESIGNED TO TEST THE CHARACTER STORAGE BUFFER IN THE 
LA18C FOR PROPER OPERATION* THIS TEST MILL PRODUCE FOUR LINES OF 
PRINT WITH 7 PLANK LINES BET WEEK THE FIRST AND SECOND LINES* THE 
LINES PRINTED WILL ALSO SERVE AS A CHECK OF PRINTING THE CORRECT 
COLUMN WIDTH. THE PATTERNS ARE DESCRIBED FOR 132 COLUMNS BUT W ILL BE 
SHORTENED ACCORDINGLY FOR NARROWER TEST WIDTHS* BEFORE THE FIRST LINE 
IS STORED, 16 E"S WILL BE LOADEf INTO THE BUFFER* THEN A RUBOUT (177) 
ftlLL BE SENT TO CHECK THAT A RU8QUT WILL CLEAR THE BUFFER*' BEFORE 
EACH OF THE LAST THREE LINES IS PRINTED AND BEFORE THE BLANK LINES 
BETWEEN THE FIRST AND SECOND PRINTED LINES, THE CHARACTER BUFFER WILL 
BE FILLED WITH ALL E*S^ THUS, AN E PRINTED ANYWHERE IN THE TEST 
PATTERN INDICATES AN ERROR. 
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THE FIRST LINE VI ILL CONTAIN IOC ONES, 30 THREES* AND 2 TWOS. THE 
SECOND PPINTED LINE HILL CONTAIN 99 ZEROES AND 33 ONES. THE THIRD 
LINE WILL CONSIST OF THE NUMBERS 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 
2, AND 3 IN GROUPS OF 10 CHARACTERS EACH (EXCEPT THE FIRST GROUP OF 
ZEROES WILL CONTAIN CNLY 9 CHARACTERS), THE LAST LINE WILL CONTAIN 
THE NUMBERS 1 TO 9 THEN IN SUCCESSION, REPEATED TO THE MAXIMUM 
COLUMN. 

THUS, THE COLUMN NUMBER MAY EE PEAD DIRECTLY PY READING THE NUMPERS IN 
ANY GIVEN COLUMN ON THE LAST THREE LINES, FROM TOP TO BOTTOM, 

COLUMN 30 WOULD BE 

3 


COLUMN 132 WOULD BE 1 

3 
2 

EXAMPLES 

1111111111111111111111111111111. 322 



0000000000000000000000000000000 Ill 

0000000001111111111222222222233 333 

12345 €789 01 2345 6^890123456789 01 012 



o.z.7 TEST 26 - OVERPRINT TEST 



THIS TEST IS DESIGNED TO CHECK THE SPACING AND REPEATABLE PRINTING 
CHARACTERISTICS OF THE PRINTER. FOUR LINES OF CHARACTERS ARE EACH 
OVERPRINTED TWG TIMES. THE ROWS CONSIST CF THE FOLLOWING CHARACTERS 
ALTERNATED ACROSS THE LINE. 



ROW 1 E - SP 

ROW 2 SP - @ 

ROW 3 M - SP 

ROW 4 SP - n 



THE RESULTING PATTERN WILL BE A CHECKERBOARD PATTERN AND THE 
UVERPPINTED CHARACTERS SHOULD BE ALIGNED PROPERLY WITH THE INITIAL 
CHARACTERS. 

EXAMPLE 2 

EEEEEEEEEE 

M M M M MM M M M M 
########## 
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6.2.8 TEST 27 - MULTIPLE LINE FEED TEST 

THIS TEST CHECKS THE LINE FEED CAPABILITY OF THE PRINTER BY SENDING 
VARIOUS GROUPS OF LINE FEEDS INTERSPACED WITH REFERENCE LINES- THE 
NUMBER PRINTED AT THE LEFT MARGIN OF THE REFERENCE LINE INDICATES THE 
NUMBER OF LINE FEEDS THAT FOLLOW • EACH LINE WILL CONTAIN A STRING OF 
DASHES AS REFERENCE POINTS FOR MEASURING, THE FIRST AND LAST BEING 132 
CHARACTERS LONG (MAXIMUM) AND THE MIDDLE LINES BEING 30 CHARACTERS 
LONG m 



EXAMPLE: 



01 
02 

04 



08 

\ 

\ 

> 7 BLANK LINES 

/ 

/ 

16 

\ 

\ 

> 15 BLANK LINES 

/ 

/ 

3 2 

\ 

\ 

> 31 BLANK LINES 

/ 

/ 

00 
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o.2.9 TEST 30 - RIBBON FEED TEST 

THIS TEST CHECKS THE RIBBON FEED MECHANISM BY PRINTING A SINGLE COLUMN 
OF 24 LINES OF X"S DOWN THE LEFT HAND MARGIN OF THE PAGE, VISUALLY 
CHECK FOR PROPER OPERATION OF THE RIBBON FEED MECHANISM DURING THIS 
TEST * 

EXAMPLE : 

X 
X 
X 



X 
X 
X 



6. 2, 10 TEST 31 - 3ELL TEST 

THIS TEST IS DESIGNED TO CHECK THE BELL CODE LOGIC AND THE TIMING 
SEQUENCE OF THE MICRO LOGIC. THE TEST WILL PRINT "SELL TEST 81 
INTERSPACED WITH BELL CODES EETWEEN CHARACTERS AND THE FOLLOWING 
CARRIAGE RETURN AND LINE FEED FUNCTIONS. A TOTAL OF FIVE BELLS WILL 
3E SCUNDED. THIS TEST WILL ALSO AUDIBLY INDICATE AN END OF A COMPLETE 
PASS THROUGH THE PRINTING TEST SEQUENCE « 

EXAMPLE: 

<BEL> BELL < B EL > <SP> TEST <BEL> <CR> 



<BEL> <LF> <BEL> <CR> 
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6.3 OPTION TESTS 

6« 3« 1 TEST 50 - SECONDARY CHARACTER SET OPTION 

THIS TEST IS DESIGNED TO EXERCISE THE SECONDARY CHARACTER SET OPTION, 
TESTING THE ABILITY TO SELECT EITHER CHARACTER SET UNDER SOFTWARE 
CONTROL FROM THE CPU, AND ALSO TESTING THAT THE CORRECT CHARACTERS ARE 
PRINTED WITHIN EACH SET. 

A NUMBER IS PRINTED AT THE LEFT MARGIN INDICATING WHICH CHARACTER SET 
IS EEING PRINTED. #1 INDICATES THE PR1MAPY SET AND #2 INDICATES THE 
SECONDARY ( APL) SET. FOLLOWING THE NUMREP THF APPROPRIATE CHARACTER 
SET, DISTINGUISHED BY THE ABSENCE OR PRESENCE OF THE 8TH BIT IN EACH 
CHARACTER , IS PRINTED IN ITS ENTIRETY. 

IF LESS THAN 98 COLUMNS ARE EEIKG TESTED, ADDITIONAL LINB(S) WILL BE 
PRINTED TO COMPLETE EACH CHARACTER SET. 

EXAMPLE! 

#1= !"#$%&*()*•. ETC.. PRIMARY CHARACTER SET... 
#2= !"#$%&*( ETC. SECONDARY CHARACTER SET*. . 
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b.4 MAINTENANCE AIDS 

THESE TESTS ARE PROVIDED AS ADDITIONAL DEBUGGING AND EXERCISING AIDS 
FOR THE LA180 PRINTER* A DETAILED DESCRIPTION OF EACH TEST FOLLOWS. 



6.4. 1 TEST 60 - LIFE TEST 

THIS TEST RUNS CONTINUOUSLY AND IS RUN A3 AN INDIVIDUAL, SPECIAL TEST, 
AND IS NOT PART CF THE STANDARD PRINTING TEST SEQUENCE- THIS TEST 
PRINTS 2 LINES OF EACH PRINTABLE CHARACTER AND THEN REPEATS 
CONTINUOUSLY. THE SECOND LINE CF EACH CHARACTER IS OVERPRINTED 4 
TIMES TC CONSERVE PAPER. AT THE COMPLETION OF EACH PASS THROUGH THE 
ENTIRE PRINTABLE CHAPACTER SET/ THE PASS COUNT WILL BE PRINTED ON THE 
LA180. 

TIME FOR A COMPLETE PASS/ WITH 132 COLUMNS IS APPROXIMATELY 10 
MINUTES. 

EXAMPLES 

AAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAA 

BBPBBBBBE8BBB9BBBBBB 
BBBBBBBBBBBBBBbBBBBB 



6.4.2 TEST 61 - SCOPE DRIVE ROUTINE 

THE PURPOSE OF THIS TEST IS TO PROVIDE THE OPERATOR WITH A SHORT BUT 
COMPREHENSIVE SCOPE DRIVER ROUTINE FOR USE IN TROUBLE SHOOTING THE 
PRINTER AND INTERFACE CONTROL LOGIC WITH AN OSCILLISCOPE. 

DEPENDING GN T HE SETTING OF THE SINGLE CHAR/FULL LINE SWITCH OF THE 
SWITCH REGISTER (SWITCH 09) THIS TEST WILL EITHER CONTINUALLY SEND 
WHATEVER CHARACTER IS SET IN THE SWITCH REGISTER TO THE LINE PRINTER, 
OR CNLY SEND IT ONCE AND HALT. WHEN CONTINUOUSLY SENDING CHARACTERS, 
A LINE FEED WILL BE INSERTED AFTER THE MAXIMUM COLUMN COUNT IS REACHED 
TO PRINT THE LINE. WHEN SENDING SINGLE CHARACTERS, DEPRESS CONTINUE 
TO SEND THE CHARACTER SET IN THE SWITCH REGISTER. TO RESUME SENDING 
CONTINUOUS CHARACTERS, PLACE THE SINGLE CHAR/FULL LINE CONTROL SWITCH 
DOWN, SET THE DESIRED CHARACTER, AND DEPRESS CONTINUE. TO STOP 
SENDING CONTINUOUSLY PLACE THE SINGLE CHAR/FULL LINE SWITCH UP AMD THE 
PRl.GR AM WILL HALT WAITING FOR A CHARACTER SELECTION. WHEN SENDING 
INDIVIDUAL CHARACTERS OR IF SENDING NON-PRINTABLE CHARACTERS, NO LINE 
FEEDS OP CARRIAGE RETURNS MILL PE INSERTED BY THE PROGRAM. 
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6-4-3 TEST 62 - LINE PRINT TEST 

THIS TEST CONTINUOUSLY PRINTS FULL LINES GF WHATEVER CHARACTER IS 
TYPED ON THE CONSOLE KEYBOARD, TO CHANGE CHARACTERS, RE SELECT THIS 
TEST AND TYPE ANOTHER CHARACTER. AN ERROR MESSAGE WILL BE PRINTED ON 
THE LA160 IF THIS TEST IS SELECTED AND A CONSOLE TERMINAL DOES NOT 
EXIST* 



6.4. 4 TEST 63 - CHARACTER PRINT TEST 

THIS TEST LOADS WHATEVER CHARACTER IS TYPED ON THE CONSOLE KEYBOARD TO 
THE LA180, CHARACTER BY CHARACTER. ALL TYPED CHARACTERS ARE ECHOED TO 
THE CONSOLE DEVICE AS THEY ARE LOADED TO THE LA180. EXTRA CARRIAGE 
RETURNS OR LINE FEEDS ARE ECHLED TC THE CONSOLE DEVICE TO AVOID 
OVERPRINTING LINES. IF THIS TFST IS SELECTED AND A CONSOLE TERMINAL 
DOES NOT EXIST AN ERROR MESSAGE WILL BE PRINTED ON THE LA180. 



6.4.5 TEST 64 - SELECTED PATTERN PRINT TEST 

THIS TEST REPEATEDLY LOADS THE LA180 PRINTER BUFFER WITH A STRING OF 
DATA RESIDING IN STORAGE. THIS STRING IS ESTABLISHED BY TYPING ON THE 
CONSOLE KEYBOARD AND TERMINATING THE STRING BY DEPRESSING EITHER CTL-A 
OR CTL-B. PRINTING THEN BEGINS AUTOMATICALLY* PRINTING CAN BE 
INTERRUPTED 3Y DEPRESSING CTL-SPACE THEREUPON A NEW PATTERN CAN BE 
ENTERED. IF CTL- A OR CTL-B IS THE FIRST KEY DEPRESSED/ PRINTING OF 
THE INTERRUPTED PATTERN WILL RESUME. 

IF A PATTERN OF CHARACTERS IS TC BE REPEATED OVER AND OVER (ON A 
SINGLE LINE) IT IS ONLY NECESSARY TO ENTER THE PATTERN ONCE AND THEN 
DEPRESS CTL-B. EXAMPLES IF AEC(SP ) (CTL-B) IS ENTERED, EACH LINE 
PRINTED WILL BE ABC ABC ABC ABC ETC* f (TO MAXIMUM NUMBER OF SPECIFIED 
COLUMNS). 

NOTE THAT NO PRINT COMMAND CODE (LF,CR, OR FF ) IS USED WHEN ENTERING 

PATTERNS TO BE FEPEATED BY CTL-E. 



OPT I GN ALLY PRINT COMMANDS CAN BE ENTERED INTO THE CHARACTER STRING TO 
OBTAIN ALMOST ANY DESIRED SEQUENCE OF ACTIONS. SUCH A STRING SHOULD 
BE TERMINATED BY DEPRESSING CTL- A ONLY. 

NOTE THAT THE STRING IS STGRED AT THE END OF ALL DIAGNOSTIC CODING 
THEREBY ALLOWING IT TO BE OPEN-ENDED IN LENGTH (UP TO THE MEMORY 
LIMIT). 



TC STOP PRINTING AND ENTER A NEfc STRING DEPRESS CTL-SPACE. TO SELECT 
A NEW TEST DEPRESS DELETE/ RUBCUT. TO CHANGE THE NUMBER OF COLUMNS 
DEPRESS CTL-C. 
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•ENABLE ABS,AMA 



-TITLE MAINDEC-11-DZLAE-B 
;*COPYRIGHT (C) 1977 
z *DIGITAL EQUIPMENT CORP. 
; *MAYNARD/ MASS* 01754 

;* 

z *PR0GR AM BY ROBERT BAKER 

;* 

z*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
/ *PAC KAGE (MATNDEC-11-DZQAC-C3), JAN 19, 1977. 




. SBTTL OPERATIONAL SWITCH SETTINGS 

;* 

;* SWITCH USE 



15 HALT ON ERROR 

14 LOOP ON TEST 



13 INHIBIT ERROR TYPEOUTS 



12 MANUAL TIMING 

10 BELL ON ERROR 



9 SNGL CHAP/FULL LINE - SCOPE ROUTINE 

P HALT Sr SELECT TEST 



07—00 



# COLUMNS AT START UP 



05--00 



TEST # SELECTION 



06--00 



CHAR SELECTION FOR SCOPE ROUTINE 



;*** SET ALL SWITCHES UP BEFORF STARTING THE PROGRAM TO USE THE 
; SOFTWARE SWITCH REGISTER CONTROL. MAKE SURE LOCATION 000176 

> CONTAINS THE DESIRED SWITCH SETTINGS BEFORE STARTING.' 
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. SBTTL BASIC DEFINITIONS 



;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STACK= 1100 

.EGUIV EMT/ERROR ;?BASIC DEFINITION OF ERROR CALL 

.FGUIV IOT/SCOPE ;;BASIC DEFINITION OF SCOPE CALL 





/'MISCELLANEOUS 


DEFINITIONS 


000011 


HT = 


11 


;;CODE FOR HORIZONTAL TAB 


000012 


LF= 


12 


;?CODE FOR LINE FEED 


0C0015 


CR = 


15 


;?CODE FOR CARRIAGE RETURN 


000200 


CRLF = 


200 


JJCODE FOR CARRIAGE RETURN-LINE FEED 


17777f 


PS= 


177776 


;?PROCESSOR STATUS WORD 




.EGUIV 


PS/PSW 




177774 


STKLNT= 


177774 


;;STACK LIMIT REGISTER 


17777? 


PIRQ = 


177772 


//PROGRAM INTERRUPT REQUEST REGISTER 


177570 


USWR = 


177570 


;;HAKDkARE SWITCH REGISTER 


177570 


DDISP= 


177570 


;;hardware display register 



;*GENERAL PURPOSE REGISTER DEFINITIONS 



000000 


R0 = 


%0 


;;general register 


00OC01 


Rl= 


%1 


//GENERAL REGISTER 


000002 


R2= 


%2 


;?GENERAL REGISTER 


000003 


R3 = 


%3 


//GENERAL REGISTER 


000004 


R4 = 


%4 


;;general register 


000C05 


R5 = 


%5 


;;genefal register 


000006 


R6 = 


%6 


;jgeneral register 


000007 


R7= 


%7 


;;general register 


000006 


SP = 


%6 


>;STACK POINTER 


0COOC7 


PC = 


%1 


;;PPOGRAM COUNTER 



;*PRIORITY LEVEL DEFINITIONS 



000000 


PRO= 





;;PRIORITY 


LEVEL 


C 


0C0C4C 


PR1 = 


40 


?>PRI0R1TY 


LEVEL 


1 


000100 


PR2= 


100 


;?PRIORITY 


LEVEL 


2 


000140 


PR3= 


140 


;>PRI0RITY 


LEVEL 


3 


0002CC 


PP4 = 


200 


;?PRI0RITY 


LEVEL 


4 


000240 


PR5 = 


240 


^PRIORITY 


LEVEL 


5 


000300 


PR6= 


300 


;?PRICRITY 


LEVEL 


6 


CC034C 


PR7= 


340 


;?PRIORITY 


LEVEL 


7 



;*"SNITCH REGISTER" SWITCH DEFINITIONS 



10000G 


SW15 = 


100000 


0400GC 


SW14 = 


400CC 


020000 


SW13= 


20000 


010000 


SW12 = 


10000 


004000 


SW11 = 


4000 


0020CC 


SW10= 


2000 


001000 


SW09 = 


1000 


000400 


SW08 = 


400 


000200 


SH07 = 


200 


0C01CC 


SW06 = 


100 


000040 


SW05 = 


40 


000020 


SW04 = 


20 


00001C 


SW03 = 


10 


0C00C4 


SW02 = 


4 
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000002 
000001 



SK01 = 

3W00 = 

-EQUIV 

•EGUIV 

.EGUIV 

.EGUIV 

.EGUIV 

.EGUIV 

.EGUIV 

.EGUIV 

.EGUIV 

. EGUIV 



2 
1 

SW09/SW9 
SW08/SH8 
SW07/SH7 
SW06/SW6 
SW05/SW5 
SW04/SW4 
SW03/SW3 
SW02/SW2 
SW01/SH1 
SWOO/SWO 



1C00CC 
040000 
020000 
010000 
0C40CC 
002000 
OOlOOr 
00040<) 
0002QC 
000100 
00004C 
000020 
0C001C 
000004 
000002 
000001 



0C0CC4 
000010 
000014 
000014 
0C0C14 
000020 
000024 
0C003C 
000034 
00006C 
000064 
000240 



; *DAT A BIT DEFINITIONS (BITOO TC BIT15) 
BIT15= 1C00C" 
40000 
20000 
10000 
40CC 
2000 
1000 
400 
200 
100 
40 
20 
10 



BIT14= 
BIT13= 
6IT12= 
EIT11= 
BIT10= 
BIT09= 
BIT08= 
BIT07= 
BITG6= 
BIT05- 
BIT04= 
BIT03= 
BIT02= 
BIT01= 
BIT00= 
.EGUIV 
. EGUIV 
■EGUIV 
.EGUIV 
-EGUIV 
.EGUIV 
-EQUIV 
.EGUIV 
-EGUIV 
.EGUIV 



2 
1 

BIT09/BIT9 
BIT08/BIT8 
BIT07/BIT7 
BIT06,BIT6 
BIT05/BIT5 
BIT04/BIT4 
BIT03/BIT3 
BIT02/BIT2 
BIT01/BIT1 
BITOO/BITO 



;*BASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC= 4 ?;TIME CUT AND OTHER ERRORS 

RESVEC= 10 ;;RESEPVED AND ILLEGAL INSTRUCTIONS 

TB1TVEC=14 ;;"T" BIT 

TRTVEC= 14 ;?TRACE TRAP 

BPTVEC= 14 ;; BREAKPOINT TRAP (BPT) 

IOTVEC= 20 ;?INPUT/CUTPUT TRAP (IOT) **SCOPE** 

PWRVEC= 24 ;;POUER FAIL 

EMTVEC= 30 //EMULATOR TRAP (EMT) **ERROR ** 

TRAPVEC=34 ;?"TRAP" TPAP 

TKVEC= 60 // TTY KEYBOARD VECTOR 

TPVEC= 64 ;;TTY PRINTER VECTOR 

PIRQVEC=240 ? /PROGRAM INTERRUPT REQUEST VECTOR 
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000015 
000012 
0C0014 
000200 



CR = 15 
LF = 12 
FF = 14 
CRLF=200 

*************************************************************** 

.SBTTL TRAP CATCHEP 



000174 
0C0174 OOOOOC 
000176 000000 



000200 
0C0C46 
005322 
000052 
0200CC 
000200 



/ * ALL UNUSED LOCATIUNS FROM 4 - 77& CONTAIN A ".♦2, HALT" 
;*SEGUENCE TQ CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
. = 174 

DISPREG: .WORD C ;?SOFTWARE DISPLAY REGISTER 

SWREG : .WORD ;?SOFTWARE SWITCH REGISTER 

•SBTTL ACT11 HOOKS 

•;*************************************************************** 

JHQQKS REQUIRED BY ACTll 

$SVPC=. JSAVE PC 

. = 46 

$ENDAD JJDSET LCC.46 TO ADDRESS OF SEND AD IN 

* = 52 

.WORD 2000C ;?2)SET LOC.52 TO 20000 

.=$SVPC ;? RESTORE PC 



$EOP 
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ACTll HOOKS 



******************************************** 



000C3O 
000032 



0C7744 
000000 



SERROR 




; EMT - ERROR HANDLER 



C00100 
000102 



000104 
00C106 



0C5566 
000000 



006556 
CCOOOO 



LKSPV 




DCI 




?KW11-L INTERRUPT 



;KWU-P INTERRUPT 



***************************************************************** 



000200 
000200 000137 001174 

000600 
000600 000137 001210 
00C6O4 C00137 001220 



-SBTTL STARTING ADDRESSES 
. = 200 

JMP START 
. = 600 

JMP RESTRT 
JMP CONTRL 



;GENERAL START 



; RESTART - NO INTERACTIVE TESTS 

;G0 TO KEYBOARD CONTROL 

;WILL DEFAULT TO SWITCH REG 

>IF CONSOLE DEVICE DOES NOT EXIST 



• • **************************************************** 



.SBTTL COMMON TAGS 



001100 177560 

001102 177562 

001104 177564 

001106 177566 



TKS: 
TKB: 

TPs: 
TPB: 



-=11CC 

177^60 
177562 
177564 
177566 



5TTY KYHD STATUS REG, ADDRESS 

;TTY KYBD BUFFER REG. ADDRESS 

?TTY PRINTER STATUS REG. ADDRESS 

>TTY PRINTER BUFFER REG. ADDRESS 



.EQUIV 
-EQUIV 
• EQUIV 
.EQUIV 



TKS,$TK£ 
TKB,$TKB 
TPS,$TPS 
TPB/STPP 
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001110 000000 



001112 00000C 
001114 000000 



001116 OCOOOO 



LPKB : 
LPS: C 



/THE FOLLOWING 4 LOCATIONS ARE INITIALIZED 
;BY THE PROGRAM 

/LINE PRINTER KBO STATUS REG ADDRESS 
;(IF SERIAL INTERFACE) 
;BIT 6 = INTERRUPT ENABLE 

;LINE PRINTER KBD BUFFER REG ADDRESS 

;LINE PRINTER STATUS REG. ADDRESS 

/BIT 15 = ERROR (IF PARALLEL INTERFACE) 

;BIT 7 = READY 

>BIT 6 = INTERRUPT ENABLE 

;LINE PRINTER DATA BUFFER REG. ADDRESS 
/BITS 0-6 = ASCII CHAR BUFFER 
;BITS 7-15 = NOT USED 



001120 000000 



001122 000001 



001124 
001126 
001130 
001132 



175610 
177510 
000000 



NUMLPS 1 

FSTSAD: 175610 

FSTPAD: 177510 

ACTFST: 

LPCTR: 



; SERIAL SWITCH. THE PRESENCE OF ANY 1-BITS 
;IN THIS WORD WILL INDICATE THAT 
/ SERIAL -INTERFACED LA180'S ARE TO BE TESTED. 
;DEFAULT IS ALL O'S = PARALLEL INTEPFACE. 

;THE NUMBER OF LA180*S WHICH THIS 
/DIAGNOSTIC WILL ATTEMPT TO TESTi 

/DEFAULT = 1 

;FIRST LA180 ADDRESS TO BE USED IF INTERFACE- 
/TYPE INDICATED IN LOCATION SERSW IS SERIAL. 

;FIRST LA180 ADDRESS TO BE USED IF INTERFACE- 
JTYPE INDICATED IN LOCATION SERSW IS PARALLEL. 

; ACTUAL FIRST ADDRESS BEING USED 

/DURING PROGRAM EXECUTION. INITILIZED BY PROGRAM ITSELF 
;LP COUNTER (USED BY PROGRAM ONLY) 



001134 
001136 



172540 
172542 



PLKS: 172540 
CSBR: 172542 



;KL11-P CLOCK STATUS REG. ADDRESS 
/KL11-P COUNT SET ADDRESS 



001140 17754f 



/KW11-L CLOCK STATUS PEG. ADDRESS 



001142 
001144 



177570 
177570 



SWR: .WORD 177570 
DISPLAY: .WORD 177570 



;SW REG ADDRESS 
/DISPLAY ADR 



MAINDEC-11-DZLAE 
DZLAEB.P11 28 


-B 

-FEE-77 


MACY11 
15:08 


27(1006) 01-MAR 
COMMON 


-77 14: 

TAGS 


;45 PAGE 27 




001146 
001150 
001152 
001153 
001154 


OOOOOC 
000204 

ccr 

000 
000 




STSTNM : 
WIDTH: 
STRONE: 
TRONE : 

tloop: 


«WOPD 
.WORD 

• BYTE 
. BYTE 

• BYTE 




132. 






/TEST NUMBER 

/NUMBER OF COLUMNS 

/RUN TEST ONCE FLAG (SW REG CTL) 

;PUN TEST ONCE FLAG (KYBD CTL) 

;LOOP ON TEST FLAG (KYBD CTL) 


C01155 


oor 




ckflag: 


i BYTE 


C 


;CLOCK OPTION FLAG 
/O = NONE AVAILABLE 
;+l = KL11-L 
;-l = KL11-P 


0C1156 
001160 
001161 
C01162 


000207 
077 
015 

OCOC 1? 




SBELL: 
SGUES: 
$chlf: 
SLF: 


-ASCIZ 
.ASCII 
.ASCII 
. ASCI? 


<207> 
/?/ 
<15> 
<12> 


;bell CODE 
/QUESTION MARK 

/CARRIAGE RETURN - LINE FEED 
/LINE FEED 


001164 
001166 


OOOOlf 
000014 




$cr: 
$ff: 


-ASCIZ 
* ASCIZ 

» EVEN 


<15> 
<14> 


/CARRIAGE RETURN ONLY 

;form FEED 



********** 



001 1 7C 
001171 
001172 
001173 



CCC 
002 
01? 
OCC 



********** 



************** 



******** 



* . ************* „ „ „ 

;THE FOLLOWING LOCATIONS ARE USED BY THE TTY TYPE ROUTINES 
/SET THE FILL CHARACTERS AS REQUIRED FOP VARICUS CONSOLE TEPMINALS 
;THE TEPMINAL AVAILABLE FLAG WILL BE SET BY THE PROGRAM. 



SNULL: .BYTE 

SFILLS: .BYTE 2 

$FILLC: .BYTE 12 

STPFLG: . BYTE 

» EVEN 



/NULL CHARACTER FOR FILLS 

/NUMBER OF FILLER CHARACTERS REQUIRED 

/ INSERT FILL CHARACTERS AFTER LINE FEED 

/TERMINAL UNAVAILABLE FLAG 

/BIT <07> = 1 = UNAVAILABLE 
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. SBTTL PROGRAM INITIALIZATION 



001174 


005037 


001146 




START: 


CLP 


STSTNM 


;SET TEST NUMBER TO ZERO 


001200 


023737 


000042 


000046 




CMP 


@#42/@#46 


; CHECK IF IN ACT QUICK VERIFY 
















;SKIP MANUAL INTERVENTION TESTS IF YES 


CGI 506 


OC1007 








BNE 


STARTX 


;INITIALIZE 


001210 


012737 


000020 


001146 


RESTRT : 


MOV 


#20/$TSTNM 


;SET TEST NUMBER TO 20 


001216 


000403 








BR 


STARTX 


^INITIALIZE 


0C1220 


012737 


177777 


001146 


COhTRL: 


MOV 


#-1/ STSTNM 


?SET CONTROL FLAG 


001226 


012737 


177570 


001142 


STARTX : 


MOV 


U177570/SWR 


; INITIALIZE SWR CONTROL 


001234 


013737 


001142 


001144 




MOV 


SWR/DISPLAY 












. SBTTL 


INITIALIZE THE COMMON TAGS 


003 242 


01 27 ce 


00110C 






MOV 


«STACK/SP 


;;SETUP THE STACK POINTER 










>?INITIALIZE 


A FEW VECTORS 




001246 


012737 


013060 


000034 




MOV 


#$TRAP,@#TRAPVEf 


;;trap vector for trap calls 


001254 


012737 


000340 


000C36 




MGV 


#340/(?#TRAPVEC*2 


;level 7 


001262 


012737 


013210 


000024 




MOV 


#$PWRDN/@#PWRVEr 


' ?>PQWER failure vector 


001270 


012737 


000340 


000026 




MOV 


#340/@#PWRVEC+2 


;;level 7 


001276 


005037 


005336 






CLR 


$PASS 


; JCLEAR THE PASS COUNT 


0C1302 


013737 


005306 


C05300 




MOV 


$ENDCT/$EOPCT 


;>SETUP END-OF-PROGRAM COUNTER 










>?SIZE 


FOR A 


HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 










//EQUAL 


TO A 


SETUP FOR A SOFTWARE SWITCH REGISTER. 


001310 


013746 


C0C0C4 






MOV 


@#ERRVEC/-(SP) 


;;SAVE ERROR VECTOR 


001314 


012737 


001350 


000004 




MOV 


#64$/ia#ERRVEC 


;;SET UP ERROR VECTOR 


001322 


012737 


177570 


001142 




MOV 


&DSWR,SWR 


;;SETUP FOR A HARDWARE SWICH REGISTER 


001330 


012737 


177570 


001144 




MOV 


#DDISP/DISPLAY 


;;AND A HARDWARE DISPLAY REGISTER 


001336 


022777 


177777 


177576 




CMP 


#-l,@SWR 


} JTRY TO REFERENCE HARDWARE SWR 


001344 


001012 








BNE 


66$ 


} J BRANCH IF NO TIMEOUT TRAP OCCURRED 
















;;A1D THE HARDWARE SWR IS NOT = -1 


001346 


000403 








BR 


65$ 


;;branch IF NO TIMEOUT 


0C1350 


012716 


001356 




64$: 


MOV 


#65$/(SP) 


;?3ET UP FOR TRAP RETURN 


001354 


000002 








RTI 






001356 


012737 


000176 


001142 


65$: 


MOV 


#SWREG/SWP 


;;POINT TO SOFTWARE SWR 


001364 


012737 


000174 


001144 




MOV 


JfD ISP REG, DISPLAY 


001372 


01 2637 


00CCC4 




66$: 


MOV 


(SP)*/i#ERRVEC 


; JRESTQRE ERROR VECTOR 


001376 


01770C 


177540 






MOV 


9SWR/R0 


;get SWITCHES 


001402 


005200 








INC 


RO 


>CHECK IF ALL SWITCHES ARE UP 


CC14C4 


0C1CC6 








BNE 


6$ 


;CONTINUE IF NOT 


001406 


0127 37 


000176 


001142 




MOV 


#SWREG/SWP 


;IF UP/ SET SOFTWARE SWITCH CONTROL 


001414 


012737 


000174 


001144 




MOV 


#DISPREG/DISPLAY 


001422 


017700 


177514 




b$: 


MCV 


0SWR/RO 


jget SW REG 


001426 


0427CC 


17740C 






BIC 


#1774C0/R0 


;SAVE BITS 0-7 


001432 


020027 


000204 






CMP 


RO/#132. 


;test # COLUMNS 


001436 


003003 








BGT 


2$ 


;T0C BIG, DEFAULT TO 132(10) 


0C1440 


020C27 


0O0CC2 




1$: 


CMP 


R0/ff2. 


;TEST # CGLUMNS 


001444 


103002 








BKIS 


3$ 


;branch IF OK 


001446 


012700 


000204 




2$: 


MOV 


l|132. /RO 


; DEFAULT TO 132(10) 


001452 


010037 


001150 




3$: 


MCV 


RO/WIDTH 


;SAVE # COLUMNS 


001456 


105037 


001154 






CLPP 


TLOCP 


;PESET FLAGS 


001462 


1050 37 


001152 






CLRB 


STRONE 




001466 


105037 


001153 






CLRB 


TRONE 




001472 


0C5037 


01166C 






CLR 


SVTST 




001476 


000401 








BR 


10$ 


/REPLACE THIS INSTRUCTION WITH NOP (204) 
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;TC SKIP CLOCK TIMINGS 



001500 


00042" 








BR 


20$ 




U01502 


012737 


000002 


000006 


10$: 


MOV 


#RTI/(a#6 


;SET TRAP RETURN 


001510 


012737 


000006 


000004 




MOV 


#6/@i|4 




001516 


112737 


177777 


001155 




MOVR 


#-l/CKFLAG 


;SET CLOCK FLAG FOR KW11-P 


001524 


0CO261 








SEC 




;SET C-BIT 


001526 


105777 


177402 






TSTP 


3PLKS 


JKW11-P AVAILABLE? 


001532 


103011 








8CC 


30$ 


;YES/ CHECK FOR CONSOLE TERMINAL 


001534 


11 27 37 


C0CC01 


C01155 




MOVE 


U/CKFLAG 


;SET CLOCK FLAG FOR KWH-L 


001542 


000261 








SEC 




;SET C-BIT 


001544 


10577-* 


177370 






TSTB 


laLKS 


;KK11-L AVAILABLE? 


0C1550 


1C3CC? 








BCC 


30$ 


;YES/ CHECK FOR CONSOLE TERMINAL 


001552 


1060 37 


001155 




20$: 


CLRB 


CKFLAG 


/CLEAR CLOCK AVAILABLE FLAG - NONE THERE 


001556 


0017 37 


001764 




30$: 


JSR 


PC/QU01 


;INITILIZE ACTFST AND SELECT DRTVER 


001562 


1 127 37 


177777 


001173 




MOVB 


4-l,$TPFLG 


;SET CONSOLE UNAVAILABLE FLAG 


001570 


000261 








SEC 




JSET C-BIT 


001572 


105777 


177302 






TSTB 


@TKS 


;CONSOLE TERMINAL THERE? 


001576 


103402 








BCS 


4$ 


/NO/ BRANCH 


0C1600 


1C5C37 


001173 






CLRP 


STPFLG 


;YES/ CLEAR CONSOLE UNAVAILABLE FLAG 


001604 


10300? 






4$: 


BCC 


5$ 


;CONTINUE IF CONSOLE 


001606 


104414 


015225 






PRINT 


/NCMSG 


;PRINT NO CONSOLE MESSAGE 


001612 


005037 


000006 




5$: 


CLR 


@#6 


JRESET TRAP VECTOR HALTS 


0C1616 


0C5C37 


000C04 






CLR 


@tf4 




00162? 


004737 


00203? 






JSR 


PC/QU02 


;TYPE INTF. MISC. IF CONSOLE 










.SBTTL 


TYPE PROGRAM NAME 












;;type 


THE NAME 


OF THE PROGRAM 


IF FIRST PASS 


0016 26 


0C5227 


177777 






INC 


S-l 


??FIRST TIME? 


00163? 


001022 








BNE 


67$ 


;;brancf if no 


001634 


022737 


005322 


000042 




CMP 


#$ENDAQ/@#42 


>?ACT-11? 


0C1642 


0C1416 








BEG 


67$ 


/ /BRANCH IF YES 


001644 


104401 


001652 






TYPE 


/68$ 


JJTVPE ASCIZ STRING 


001650 


000413 








BR 

*ASCIZ 


67$ 

<CRLF>#MAINDEC- 


; /GET OVER THE ASCIZ 
11-DZLAE-B#<CRLF> 


CC1700 








t>7$: 








001700 


005737 


001146 






TST 


$TSTNM 


/WANT CONTROL NOW? 


001704 


002005 








BGE 


11$ 


;NO/ CONTINUE 


001706 


1C5737 


001173 




15$: 


TSTE 


$TPFLG 


;TEPMINAL THERE? 


00171? 


100406 








BMI 


13$ 


;NC/ DEFAULT TO SW REG CONTROL 


001714 


000137 


007442 






JMP 


KYBDST 


;YES/ GO TO KYBD CONTROL 


001720 


032777 


000400 


177214 


11$: 


BIT 


#SWB/@SWR 


;W ANT TEST SELECTICN? 


0C1726 


0014C? 








BEQ 


12$ 


;NO/ CHECK TEST ^ 


001730 


000137 


006752 




13$: 


JMP 


SELECT 


;YES/ GO TO TEST SELECTION halt 


001734 


013700 


001146 




12$: 


MOV 


STSTNM/RO 


;GET TEST NUMBER 


001740 


006300 








ASL 


RO 


JSET POINTER 


00174? 


CC576C 


013356 






TST 


TAT(RO) 


JCHECK IF TEST IN TABLE 


001746 


003004 








BGT 


14$ 


BRANCH IF IN TABLE 


001750 


002756 








BLT 


15$ 


; END OF SEQUENCE/ SELECT TEST 


001752 


005237 


001146 






INC 


STSTNM 


>INCREMENT TEST NUMBER 


001756 


QC076C 








BP 


11$ 


JCHECK NEXT TEST NUMBER IN TABLE 


001760 


000170 


013356 




14$: 


JMP 


(?TAT(P0) 


;go TO TEST 
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001764 


005737 


001120 




QUOl: 


TST 


SERSW 


CC1770 


CC14C7 








BEG 


80$ 


001772 


013737 


001124 


001130 




MOV 


FSTSAD/ ACTFST 


002000 


012737 


011206 


011042 




MOV 


#SL0AD,LDPTR+2 


002006 


00G4C6 








BR 


90$ 


002010 


013737 


001126 


001130 


80$; 


MOV 


FSTPAD/ ACTFST 


002016 


012737 


011044 


011042 




MOV 


#PL0AD,LDPTR*2 


002024 


004737 


011316 




90$: 


JSR 


PC/RSTADR 


002030 


000207 






RTS 


PC 



;is serial switch set? 
; zeros =nq=parallel=branch 
;set address of 1st serial in 
/switch to serial loader 
;get around next 2 instps 
;set address of 1st parallel 
,switch to parallel loader 
, address 1st line printer 
, return 



UU£U<J£ 


1 057 37 


0011 




QU02 . 


TSTB 


$TPFLG 




>IS THERE A CONSOLE TERMINAL? 




1 rt A 1 fs 
1 C 1 c C 








BM I 


78$ 




/BRANCH IF NONE 




1 CiAA 01 
j.U*i*l UJ. 








TYPE 


,74$ 




;CRLF CONSOLE 


002044 










TST 


SERSW 




;IS SFRIAL SWITCH SET? 


0C2C50 


0C1476 










77$ 




; ZEROS =NQ=PARALLEL=BRANCH 


002052 


104401 


. .. 






TYPE 


/71$ 




^SERIAL 


U 


1 (S&A 01 


0001 X") 




/o$ : 


TYPE 


#72$ 




; INTERFACED LA180 TEST, CRLF 




1044 01 
IU11U1 


nnTi 1 






TYPE 


,73$ 




}% LAISO'S = 


f 2 C 6 6 




001150 






MOV 


NUMLP,-(SP) 




;PUT # OF LP'S ONTO STACK 




10440* 








TYPOS 






;TYPE # OF LP'S BEING TESTED 


U UzU / 1 


1 04401 


z9 z, \ 






TYPE 


,74$ 




;CRLF 


0G2100 


1 ts A A r. 1 


00/ 200 






TYPE 


,75$ 




;FIRST PRINTER'S ADDRESS IS 


002104 




001130 






MOV 


ACTFST, -(SP) 




,PUT VALUE ONTO STACK 












TYPOS 






;TYPE OCTAL ADDRESS 


002112 


006 








< BYTE 


6 






0C2113 


0C1 








-BYTE 


1 






002114 


104401 


002176 








,74$ 




/CRLF 


002120 


000207 






78$: 


RTS 


PC 




;fxit 


002122 


042523 


044522 


046101 


71$: 


iASCIZ 


/SERIAL / 






0G2130 


0C004C 














002132 


047111 


042524 


043122 


72$: 


-ASCIZ 


/INTERFACED 


LA180 TEST/ <CRLF> 


002140 


041501 


042105 


046040 












002146 


030501 


030070 


052040 












C02154 


0515C5 


100124 


000 












002161 


043 


046040 


030501 


73$: 


.ASCIZ 


1% LA180-S = 


/ 




002166 


030070 


051447 


036440 












002174 


000040 
















0C2176 


00020C 






74$: 


•ASCIZ 


<CRLF> 






002200 


044506 


051522 


020124 


75$: 


* ASCIZ 


/FIRST PRINTER" 


S ADDRESS IS / 


002206 


051120 


047111 


042524 












002214 


023522 


020123 


042101 












002222 


051104 


051505 


C20123 












002230 


051511 


000040 














002234 


040520 


040522 


046114 


76$: 


. ASCIZ 


/PARALLEL / 






002242 


046105 


000040 
























* EVEN 








002246 


104401 


002234 




77$: 


TYPE 


,76$ 




^PARALLEL 


002252 


000701 








BR 


70$ 




, continue 



MAINDEC-11-DZLAE-B MACYll 27(1006) 01-MAR-77 14:45 PAGE 31 

DZLAEB.P11 28-FEB-77 15:08 TYPE PROGRAM NAMS 

. SBTTL OPERATOR INTERVENTION TESTS 

;////////////////////////////////////////////////////////////////////// 

;T£ST0 - INTERFACE AND CCNTRCL TESTS (PARALLEL INTF ONLY) 

;TEST EPPOR AND READY BITS, PRINTER OFF LINE - POWER OFF 

;////////////////////////////////////////////////////////////////////// 



002254 


0C5737 


001120 


TESTO: 


TST 


SERSK 


;IS PARALLEL INTF INDICATED? 


002260 


001402 






BEQ 


29$ 


, BRANCH IF YES 


002262 


000137 


006644 




JMP 


EXIT 


; OTHERWISE EXIT TEST 


002266 


104401 


015567 


29$: 


TYPE, 


TOMSGO 


;TYPE INSTRUCTIONS 


002272 


1C4421 






HOLD 




;WAIT FOR OPERATOR 


002274 


104420 




28$: 


CHECK 




;CHECK FOR CONTROL 


002276 


005777 


176612 




TST 


0LPS 


;CHECff FOR ERROR CONDITION 


002302 


100402 






BMI 


1$ 


,0K, ERROR SET 


0C23C4 


1C4C01 






ERROR 


1 


/ERROR CLEAR, POWER OFF 


002306 


000772 






BR 


28$ 


/RETEST 


002310 


105777 


176600 


1$: 


TSTB 


§LPS 


;CHECK READY 


002314 


100002 






BPL 


2$ 


,0K, READY NOT SET 


0C2316 


1C40C2 






ERROR 


2 


JREADY SET, POWER OFF 


002320 


000765 






BR 


28$ 


/PETEST 



I II II! 1 1 1 1 II 1 1 1 1 1 II I III III! 1 1 1 II I II 1 1 1 HI III I II f I III I II II If II i II II ! II I 

/TEST ERROR AND READY BITS, PRINTER OFF LINE - POWER ON 

;////////////////////////////////////////////////////////////////////// 



002322 


104401 


015626 


i$: 


TYPE, 


TOMSGl 


/TYPE INSTRUCTION - TURN POWER 


002326 


104421 






HOLD 




/WAIT FOR OPERATOR 


002330 


104420 




? 3$: 


CHECK 




;CHECK FOR CONTROL 


00233? 


0C5777 


176556 




TST 


8LPS 


;CHECK ERROR 


002336 


100402 






BMI 


4$ 


;0K, ERPOP SET 


002340 


104003 






ERROR 


3 


/ERROR CLEAR, PRINTER OFF LINE 


002342 


000772 






BR 


3$ 


,RETEST 


002344 


1C5777 


176544 


4$: 


TSTB 


@LPS 


;CHECK READY 


002350 


100002 






BPL 


5$ 


;0K, READY NOT SET 


002352 


104004 






ERROR 


4 


;READY SET, PRINTER OFF LINE 


002354 


000765 






BR 


3$ 


;retest 



002356 104401 015651 

002362 104421 

002364 104420 

002366 005777 176522 

002372 100002 



■ f lll illlllllllllllllllilliiillilll HlUlllllllllilllllUlllliilllllllll 

>TEST ERROR AND READY BITS, PRINTER ON LINE 

I II I llll 1 1 II 1 1 1 II III I II II II II 1 1 II II I II I II I II I llll II 1 1 II II II 1 1 1 II II I III 

5$: TYPE ,T0MSG2 

6$: 



TYPE 
HOLD 
CHECK 
TST 
BPL 



@LPS 
7$ 



;TYPE INSTRUCTION, TURN ON LINE 
;NAIT FOR OPERATOR 
, CHECK FOR CONTROL 
;CHECK ERROR 
;0K, ERROR CLEAR 
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002374 
002376 
002400 
002404 
002406 
0C2410 



104005 
0C0772 
105777 
100402 
104006 
0C0765 



ERROR 
BR 

TSTP 
BMI 

ERROR 
BR 



5 

6$ 

8LPS 

8$ 

6 

6$ 



>ERR0R SET/ PRINTER ON LINE 

;retest 
pcheck ready 

;OK, READY SET 

>READY CLEAR/ PRINTER ON LINE 
PRETEST 



',1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
;TEST PAPER OUT SWITCH 

• f l II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 II II 1 1 1 1 II II II II III 1 1 1 1 1 III! II III I II I II II I III 



002412 


104401 


015705 


8$; 


TYPE 


/T0MSG3 


J TYPE INSTRUCTION/ PAPER OUT 


0C2416 


1C4421 






HOLD 




?WAIT FOR OPERATOR 


002420 


104420 




9$: 


CHECK 




I CHECK CONTROL 


002422 


012777 


000012 176466 




MOV 


#12/@LPB 


/SEND LF 


002430 


005777 


176460 




TST 


@LPS 


pCHECK FOR ERROR CONDITION 


CC2434 


1C0402 






BMI 


10$ 


;0K, ERROR SET 


002436 


104007 






ERROR 


7 


;ERR0R CLEAR/ PAPER OUT ERROR 


002440 


000767 






BR 


9$ 


;retest 


002442 


105777 


176446 


10$: 


TSTB 


(?LPS 


;check READY 


0C2446 


100002 






BPL 


11$ 


pGK/ READY CLEAR 


002450 


1 U 4 U 1 V 






ERROR 


10 


;READY SET/ PAPER OUT/ ON LINE 


002452 


00076? 






BR 


9$ 


PRETEST 








)iii iiiiiiiiiiiiiiiiiniiiii 11 ill iiiiimiiiiiiiiiiiiiniiiiii iiiiimi 








;test 


ABILITY 


TO CLEAR ERROR CONDITION 








)l II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1/ 1 II 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 III 1 1 1 1 1 II 1 III 1 1 1 1 1 1 1 II II 1 III 


002454 


104401 


015737 


11$: 


TYPE 


/T0MSG4 


;TYPE INSTRUCTION/ RESET & ON LINE 


002460 


104421 






HOLD 




PWAIT FOR OPERATOR 


002462 


104420 




12$: 


CHECK 




PCHECK FOR CONTRCL 


002464 


0C5777 


176424 




TST 


@LPS 


;CHECK ERROR 


002470 


100002 






BPL 


13$ 


POK/ ERROR CLEAR 


002472 


104011 






ERROR 


11 


;error did not clear 


002474 


000772 






BR 


12$ 


PRETEST 


002476 


1C5777 


176412 


13$: 


TSTB 


@LPS 


;CHECK READY 


002502 


100402 






BMI 


14$ 


POK/ READY SET 


002504 


104012 






ERROR 


12 


PREADY NOT SET 


002506 


000773 






BR 


13$ 


PRETEST 








',11111111111111111111111 II II II III III III III III III llllll II II II II III III III 








;CHECK 


ERROR & 


READY BITS 


AFTER RESFT INSTRUCTION 








• t l II lllll llllll III llllllllll II llllll llllllllllllllllllllllllll llllll III 


002510 


104420 




14$: 


CHECK 




PCHECK CONTROL 


002512 


000005 






RESET 




/CLEAR WORLD 


002514 


0C5777 


176374 




TST 


@LPS 


pCHECK ERROR 


002520 


100002 






BPL 


15$ 


?0K/ ERPOR CLEAR 


002522 


104013 






ERROR 


13 


/ERROR BIT SET AFTER RESET INSTR- 


002524 


000771 






BR 


14$ 


/RETEST 
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0C2526 
002530 
002532 
002536 
0C2540 
002542 



1C4420 
000005 
105777 
100402 
1C4C14 
000771 



15$: 



CHECK 

RESET 

TSTB 

BMI 

ERROR 

BP 



@LPS 
16$ 
14 
15$ 



pCHECK CONTROL 
/CLEAR WORLD 
PCHECK READY 
;0K/ READY SET 

pREADY BIT CLEAR AFTER RESET INSTR. 
PRETEST 



il II I l/l I llllll III llllll llllll llllllllllllllllllllllllll II 1 1 II I lllll III 

PCHECK THAT LOADING CHAR BUFFER PESETS READY PIT 
PAND PRINTER DOES GO BACK READY. 

// II I 1 II I 1 I 1 I 1 1 I 1 1 1 1 II I I I 1 I II I I I 1 I I I 1 I I I III I I 1 I I II II 1 1 II II I 1 I lllll I I III 



002544 


104420 




16$: 


CHECK 




/CHECK CONTROL 


002546 


005005 






CLR 


R5 


pCLFAR TIME OUT COUNTER 


0C2550 


0^2777 


0C0C15 


176340 


MOV 


&15/(3LPB 


/LOAD CARRIAGE RETURN INTO BUFFER 


002556 


105777 


176332 




TSTP 


8LPS 


PCHECK READY 


002562 


100002 






BPL 


17$ 


POK/ READY CLEAR 


002564 


104015 






ERROR 


15 


/READY BIT NOT CLEAR WHEN CHAR LOADED 


0C2566 


0C0766 






BP 


16$ 


PRETEST 


002570 


005777 


176320 


17$: 


TST 


@LPS 


PCHECK ERROR 


002574 


100002 






BPL 


18$ 


POK/ ERROR CLEAR 


002576 


104016 






ERROR 


16 


/ERROR BIT SET AFTER CHAR LOAD 


0^2600 


000761 






BR 


16$ 


PRETEST 


002602 


105777 


176306 


18$: 


TSTB 


•aLPS 


PPPINTER STILL BUSY 


002606 


100404 






BMI 


i9$ 


PNO/ NEXT TEST 


002610 


005205 






INC 


R5 


PYES, INC TIMER 


002612 


001366 






BNE 


17$ 


?WAIT FOR FLAG 


002614 


104017 






ERPOR 


17 


PNO/ TOO LONG 


002616 


000752 






BR 


16$ 


PRETEST 



illl 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

PCHECK INTERRUPT LEVEL OF PRINTER 
/PRINTER SHOULD BE AT LEVEL 4 
/ 

pTEST THAT PRINTER WILL NOT INTERRUPT ABOVE LEVEL 3 

' f I II I lllll llllllllllllllllllllllllll llllll III lllll III III II II II I lllll III 



0C2620 


01 270F 


000340 




19$: 


MOV 


#PR7,R5 


PSET FIPST LEVEL 


002624 


104420 






20$: 


CHECK 




P CHECK CONTROL 


002626 


012737 


002730 


000200 




MOV 


#23$/200 


PSET INTERRUPT RETURN 


002634 


012737 


000340 


000202 




MOV 


#PR7,202 


/SET PRIORITY 7 ON INTERRUPT 


002642 


0C5777 


176246 






TST 


@LPS 


PCHECK FOP ERPOR 


002646 


100002 








BPL 


21$ 


?0K/ ERROR CLEAR 


002650 


104020 








ERROR 


20 


P ERROR BIT SET 


002652 


000764 








BR 


20$ 


PRETEST 


GC2654 


1C5777 


176234 




21$: 


TSTB 


8LPS 


PCHECK READY 


002660 


100402 








BMI 


22$ 


/OK/ READY SET 


002662 


104021 








ERROR 


21 


/READY BIT NOT SET 


002664 


000757 








BR 


20$ 


PRETEST 


0C2666 








22$: 








002666 


010546 








MOV 


R5,-(SP) 


??PUT NEW PS ON STACK 


002670 


012746 


002676 






MOV 


#64$/-(SP) 


ppPUT NEW PC ON STACK 



MA1NDEC-11-DZLAE-E MACY11 77(1006) 01-MAR-77 14:45 PAGE 34 

DZLAEB.Pll 28-FSB-77 15:08 OPERATOR INTERVENTION TESTS 



002674 


000002 








RTI 




;;P0P NEW PC AND PS 


0C2676 








64$: 








002676 


052777 


000100 


176210 




BIS 


#BIT6,@LPS 


;SET PRINTER INT. ENABLE 


002704 


000240 








NOP 




;DELAY 


002706 


042777 


000100 


176200 




BTC 


ffBIT6,@LPS 


;CLEAR PRINTER INT* ENABLE 


0C2714 


16270? 


000040 






SUB 


#40,R5 


;SET NEXT LEVEL 


002720 


020527 


000140 






CMP 


R5,#PR3 


?LEVEL 3? 


002724 


001404 








BEQ 


24$ 


;YES, CONTINUE NEXT TEST 


002726 


000736 








BR 


20$ 


;NC, TEST THIS LEVEL 


002730 


02262* 






23$: 


CMP 


(SP)4,(SP)+ 


; RESTORE STACK 


002732 


104022 








ERROR 


22 


; INTERRUPT ABOVE LEVEL 3 


002734 


000733 








BR 


20$ 


;RETEST 



/////////////////////////////////////////////////////////////////////// 

;TEST ABILITY OF PRINTER TO INTERRUPT AT ALL PRICRITY LEVELS BELOW 4 

;////////////////////////////////////////////////////////////////////// 



002736 


104420 






24$: 


CHECK 




?CHECK FOR CONTROL 


002740 


012737 


003024 


000200 




MOV 


#27$, 200 


;SET INTERRUPT RETURN 


002746 


CC5777 


176142 






TST 


@LPS 


;CHECK FOR ERROR 


002752 


100002 








BPL 


25$ 


;OK, ERROR CLEAR 


002754 


10402C 








ERROR 


20 


JERRQR BIT SET 


002756 


000767 








BR 


24$ 


PRETEST 


002760 


1C5777 


176130 




25$: 


TSTB 


8LPS 


;CHECK READY 


002764 


100402 








BMI 


26$ 


;OK, READY SET 


002766 


104021 








ERROR 


21 


;ready clear 


002770 


000762 








BR 


24$ 


jretest 


002772 








26$: 








002772 


010546 








MOV 


R5,-(SP) 


;?PUT NEW PS ON STACK 


002774 


012746 


003002 






. MOV 


#65$, -(SP) 


;;PUT NEW PC ON STACK 


003000 


000002 








RTI 




JjPOP NEW PC AND PS 


0C3C02 








65$: 








003002 


052777 


000100 


176104 




MS 


#BIT6,@LPS 


;SET PRINTER INTR- ENABLE 


003010 


000240 








NOP 




? DELAY 


003012 


042777 


000100 


176074 




BIC 


#BIT6,@LPS 


>CLEAR PRINTER INTR. ENABLE 


0C3C20 


1C402? 








ERROR 


23 


;NO INTERRUPT BELOW LEVEL 4 


003022 


000745 








BP 


24$ 


?RETEST 


003024 


042777 


000100 


176062 


27$: 


BIC 


#BIT6,@LPS 


; CLEAR PRINTER INTR. ENABLE 


0C3032 


02262? 








CMP 


(SP)*,(SP)+ 


PRESET STACK 


003034 


162705 


000040 






SUB 


#40, R5 


;SET NEXT LEVEL 


003040 


002336 








BGE 


24$ 


PRETEST IF NOT DONE ALL LEVELS 


003042 


012737 


000137 


000200 




MOV 


#137,200 


;RESET INSTRUCTIONS AT 200-202 


003C50 


012737 


002174 


000202 




MOV 


#START,202 




003056 


005046 








CLR 


-(SP) 


; JPUT NEW PS ON STACK 


003060 


012746 


003066 






MOV 


#66$,-(SP) 


;?PUT NEW PC ON STACK 


0C3C64 


0C0C07 








RTI 




;;pqp NEW PC AND PS 


003066 








66$: 








003066 


000137 


006644 






JMP 


EXIT 


;EXIT TEST 
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;////////////////////////////////////////////////////////////////////// 

>TEST1 - TOP OF FORM SWITCH TEST 

;////////////////////////////////////////////////////////////////////// 



003072 


104413 




TEST 1 : 


PRTHDR 




;PRINT TEST HEADER 


003074 


01270*! 


003204 




MOV 


#4$,R5 


;SET TABLE POINTER 


003100 


012701 


000036 




MCV 


#30.,R1 


;SET CHAR COUNT 


003104 


01270C 


000055 




MOV 


#55,R0 


;SET DASH CHAR 


003110 


104416 






MLOAD 




/LOAD DASHED LINE 


003112 


104414 


001164 




PRINT 


,$CR 


;PRINT LINE 


003116 


104401 


016035 


3$: 


TYPE 


,T1MSG3 


JTYPE INSTRUCTIONS 


CC3122 


010537 


003330 




MOV 


R5,l$ 


;SET SWITCH SETTING FOR MESG 


003126 


104401 






TYPE 






003130 


000000 




1$: 


• WORD 







003132 


104401 


016067 




TYPE 


,T1MSG4 


/FINISH INSTRUCTIONS 


CC3136 


1C4421 






HOLD 




JWAIT FOR OPERATOR 


003140 


104420 






CHECK 




;CHECK FOP CONTROL 


003142 


104414 


001166 




PRINT 


,$FF 


;ISSUE FORM FEED 


003146 


104414 


015777 




PRINT 


,T1MSG1 


?PRINT REFERENCE LINE 


CC3152 


C10537 


00316C 




MOV 


R5,?$ 


;SET FORM FEED LENGTH FOR MESG 


003156 


104414 






PRINT 






003160 


000000 




2$: 


-WORD 







003162 


104414 


016006 




PRINT 


,T1MSG2 


JFINISH MESG 


0C3166 


022525 






CMP 


(R5)+,(R5)+ 


;INC TABLE POINTER 


003170 


005715 






TST 


(R5) 


>CHECK TABLE TO SEE IF DONE TEST 


003172 


001351 






BNE 


3$ 


;finish TEST 


003174 


104414 


0011O2 




PRINT 


,$LP 


? ADVANCE PAPER WHEN DONE 


003/00 


000337 


006644 




JMP 


EXIT 


;EXIT TEST 


003204 


031440 


000040 


4$: 


.ASCIZ 


/ 3 / 


; FORM FEED SWITCH SETTINGS 


003210 


027063 


000065 




.ASCIZ 


/3.5/ 




0C3214 


032G40 


000040 




■ ASCIZ 


/ 4 / 




003220 


027065 


000065 




• ASCIZ 


/5.5/ 




003224 


033040 


000040 




. ASCIZ 


/ 6 / 




003230 


033440 


000040 




i, ASCIZ 


/ 7 / 




003234 


034C40 


00004C 




.ASCIZ 


/ 8 / 




003240 


027070 


000065 




• ASCIZ 


/8.5/ 




003244 


030461 


000040 




*ASCIZ 


/ll / 




003250 


031061 


000040 




• ASCIZ 


/12 / 




0C3254 


032061 


000C40 




* ASCIZ 


/14 / 




003260 


000000 






• WORD 





;END OF TABLE 



MAINDEC-11-DZLAE-B MACY11 21(1006) 01-MAR-77 14:45 PAGE 36 

DZLAEB.P11 2P-FEB-77 15:08 OPERATOR INTERVENTION TESTS 



yiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiiiiiiiini 

;TEST2 - PRINT SPEED TIMING 

/ 

;A SWIRL PATTERN IS PRINTED FOR ONE FULL MINUTE 
/WHILE THE NUMBER OF LINES PRINTED IS COUNTED. 

/TIMING WILL BE DONE BY KW11-L/KW11-P CLOCK OTION IF EITHER AVAILABLE. 
/OTHERWISE/ MANUAL TIMING WILL BE USED TO OBTAIN APPROX. PRINT TIMINGS. 

; 

;IF A HARDWARE SWITCH REGISTER IS NOT AVAILABLE/ THIS TEST 

/CANNOT BE RUN WITHOUT A CLOCK OPTION BEING AVAILABLE- THE 

; PROGRAM WILL AUTOMATICALLY SKIP THIS TEST IF IT CANNOT BE RUN j 

iiii i nil 1 1 ii ii i ii ii ii ii iiii ii ill iii i ii m i ii iii ii m mil n ii i mi mi 



003262 


104413 






TEST2: 


PRTHDR 




;PRINT TEST HEADER 


003264 


012737 


003? 00 


C06610 




MOV 


#SPD,TORTN 


;SET TIME OUT RETURN 


003272 


005004 








CLR 


R4 


/CLEAR LINE COUNT 


003274 


1C5737 


001155 






TSTB 


CKFLAG 


;test clock flag 


003300 


001417 








BEQ 


4$ 


;N0NE THERE/ MANUAL TIMING 


0C3302 


0C24C7 








BLT 


1$ 


;kui-p 


003304 


013737 


006612 


006606 




MOV 


MINCNT/CNTR 


;SET KWll-L CLOCK COUNT 


003312 


012777 


000100 


175620 




MOV 


#BIT6,0LKS 


; ENABLE CLOCK INTERRUPT 


003320 


000427 








BR 


T2SP 


/START PRINTING 


003222 


013777 


006612 


175606 


1$: 


MOV 


MINCNT,@CSBR 


;SET CLOCK COUNT 


003330 


012777 


000105 


175576 




MOV 


#105,@PLKS 


/ START CLOCK 


003336 


000420 








BR 


T2SP 


/START PRINTING 


003340 


023727 


001142 


177570 


4$: 


CMP 


SWR, #177570 


/CLECK SW REG ADR 


0C3346 


0C1406 








BEQ 


2$ 




003 350 


104414 


016134 






PRINT 


,T2EM 


/CONTINUE IF HARDWARE 


003354 


104401 


016134 






TYPE 


/T2EM 


/PRINT ERRORS MESG 


003360 


000137 


006644 






JMP 


EXIT 


/EXIT TEST 


003364 


1C4401 


015253 




2$: 


TYPE 


/MANMSG 


/PRINT INSTRUCTIONS 


003370 


032777 


010000 


175544 


3$: 


BIT 


#SW12,(?SWR 


/SW12 UP? 


003376 


001774 








xBEQ 


3$ 


/NO, WAIT FOR START 


0C2400 


012702 


000041 




T2SP : 


MOV 


#41/R2 


/SET START CHAR 


003404 


010200 






1$: 


MOV 


R2/R0 


/SET CHAR 


003406 


013701 


001150 




2$: 


MOV 


WIDTH/R1 


/SET COLUMN COUNT 


0C3412 


1C4415 






3$: 


LOAD 




/LOAD CHAR 


003414 


005301 








DEC 


Rl 


/DEC CHAR COUNT 


003416 


001407 








BEQ 


4$ 


/BRANCH IF DONE LINE 


003420 


005200 








INC 


RO 


/NEXT CHAR 


003422 


020027 


000177 






CMP 


R0,#177 


/CHECK CHAR 


003426 


001371 








BNE 


3$ 


/OK, CONTINUE 


003430 


012700 


000040 






MOV 


&40/R0 


/SET CHAR s SPACE 


003434 


000766 








BR 


3$ 


/CONTINUE 


003436 


1C4414 


001162 




4$: 


PRINT 


/SLF 


/PRINT LINE 


003442 


005204 








INC 


R4 


/ INC LINE COUNT 


003444 


105737 


001155 






TSTB 


CKFLAG 


/USING CLOCK TIMING? 


003450 


001006 








BNE 


5$ 


/YES/ BYPASS MANUAL TIMING 


003452 


032777 


010000 


175462 




BIT 


8SW12/0SWR 


ZSW12 DOWN? 


003460 


001002 








BNE 


5$ 


/NO/ CONTINUE 


003462 


000137 


003500 






JMP 


SPD 


/YES/ EXIT PRINTING ROUTINE 


003466 


005202 






5$: 


INC 


R2 


/INC START CHAR 


CC3470 


020227 


000177 






CMP 


R2,#177 


/CHECK IT 
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003474 001343 
003476 000740 



BNE 
BR 



IS 

T2SP 



/OK, CONTINUE 
/RESET START CHAR 



)l II 1 1 1 II 1 1 II 1 1 1 1 1 1 1 1 II I II II II III! Illll I lllll I II 1 1 III III IIII II I II III I II 

/ROUTINE TO PRINT/TYPE MEASURED PRINT SPEED FOR TEST 2- 

>l II 1 1 III 1 1 If 1 1 1 1 1 1 1 1 1 1 1 II II 1 1 1 1 II II 1 1 1 1 1 II II I II 1 1 II 1 1 II II 1 1 II I II III I II 



003500 


012700 


000177 


SPD: MOV 


#177, RO 


J SET RUBOUT CHAR 


003504 


104415 




LOAD 




/CLEAR CHAR BUFFER 


003506 


104401 


015470 


TYPE/ 


PRSP1 


/START MESG 


CC3512 


1C4414 


015470 


PPINT 


/PRSP1 




003516 


105737 


001155 


TSTP 


CKFLAG 


/USING CLOCK? 


003522 


001004 




BNE 


IS 


/YES, BRANCH 


003524 


104401 


015511 


TYPE 


/PRSP2 


/ ADD WORD "APPROXIMATELY" 


0C3530 


1C4414 


015511 


PRINT 


/PRSP2 




003534 






1$: 






003534 


010446 




MOV 


R4/-(SP) 


/ /PUSH R4 ON STACK 


003536 


004737 


012650 


JSR 


PC/SSB2D 


/CONVERT # 


003542 


104417 




CNLOAD 




/LOAD # 


003544 


010446 




MOV 


R4,-(SP) 


/ /PUSH R4 ON STACK 


003546 


104405 




TYPDS 




/TYPE # 


CC3550 


1C4414 


015522 


PPINT 


/PRSP3 


/LOAD MORE OF MESG 


003554 


104401 


015522 


TYPE 


/PRSP3 




003560 


013746 


001150 


MOV 


WIDTH, -(SP) 


/^COLUMNS ON STACK 


003564 


104405 




TYPDS 




/TYPE # 


CC3566 


104401 


015551 


TYPE 


,PRSP4 


/TYPE END OF MESG 


003572 


013746 


001150 


MOV 


WIDTH, -( SP) 


?# COLUMNS ON STACK AGAIN 


003576 


004737 


012650 


JSR 


PC,$SB2D 


/CONVERT H 


003602 


104417 




CNLOAD 




/LOAD ft 


0C3604 


1C4414 


015551 


PPINT 


,PRSP4 


/PRINT MESG ON LA180 


003610 


00013* 7 


006644 


JMP 


EXIT 


/EXIT TEST 
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•SBTTL PRINTING TESTS 



yl ll 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 II I II 1 1 1 1 1 1 1 1 II II 1 1 II I II 1 1 1 1 1 III III II II ll III III III 

;TEST20 - DATA TRANSFER PATHS TEST 

;THIS TEST PRINTS 16 LINES OF ALTERNATING *'S AND U'S IN A CHECKERBOARD 
/PATTERN 

',1 II I II II 1 1 II 1 1 II I II I II I II 1 1 1 1 1 1 II II II 1 1 II 1 1 1 III II II 1 1 II 1 1 1 1 II I II II I III 



003614 


104413 




TEST20: 


PRTHDR 




>PRINT TEST HEADER 


003616 


012703 


052452 




MOV 


#"*U,R3 


?SET FIRST CHAR PAIR 


003622 


012702 


000020 




MOV 


#16.,R2 


;SET LINE COUNT 


003626 


010300 




IS! 


MOV 


R3/R0 


;SET CHAR PAIR 


0C3630 


0137C1 


00115C 




MOV 


WIDTH/R1 


;SET COLUMN COUNT 


003634 


104415 




2S: 


LOAD 




;LDAD CHAR 


003636 


000300 






SWAB 


RO 


JSET NEXT CHAR 


003640 


005301 






DEC 


«1 


;DEC COLUMN COUNT 


003642 


0C1374 






BNE 


2$ 


;FINISH LINE 


003644 


000303 






SWAB 


R3 


;SET NEXT LINF START 


003646 


104414 


001162 




PRINT 


/$LF 


/PRINT LIKE 


003652 


005302 






DEC 


i*2 


JDEC LINE COUNT 


0C3654 


0C13C4 






BNE 


IS 


JFINISH TEST 


003656 


000137 


006644 




JMP 


EXIT 


;EXIT WHEN DONE 
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',1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

;TEST21 - HEAD POSITIONING TEST 

;THIS TEST PRINTS A SINGLE LINE OF ALTERNATING O'S AND SPACES 
/THEN FILLS IN THE SPACES WITH X'S ONE AT A TIME. 

/////////////////////////////////////////////////////////////////////// 



003662 


1C4413 




TEST21: 


PPTHDR 




;PRINT TEST HEADER 


003664 


013701 


001150 




MOV 


WIDTH, PI 


;SET COLUMN COUNT 


003670 


012700 


000060 


IS: 


MOV 


#60, RO 


;SET CHAR 


CC3674 


1C4415 






LOAD 




;lcad chaf 


003676 


005301 






DEC 


Rl 


?DEC CHAR COUNT 


003700 


001405 






BEQ 


2$ 


;PRINT LINE WREN LOADED 


003702 


012700 


000040 




MCV 


«40/R0 


;SET SPACE CHAR 


0G3706 


1C4415 






LOAD 




;LCAD SPACE 


003710 


005301 






DEC 


Rl 


;DEC CHAR COUNT 


003712 


001366 






BNE 


IS 


;FINISH LINE 
;PRINT LINE 


003714 


104414 


001164 


2$: 


PRINT 


z$CR 


003720 


0127C? 


000002 




MOV 


ff2/R2 


;SET FIRST CHAR COUNT 


003724 


012700 


000040 


3$: 


MOV 


840, RO 


;SET SPACE CHAR' 


003730 


010201 






MOV 


R2,R1 


/GET CHAR COUNT 


003732 


005301 






DEC 


Rl 


jSUBTRACT ONE 


0C3734 


1C441C 






MLOAD 




;load spaces 


003736 


012700 


000130 




MOV 


rX/RO 


JSET X CHAR 


003742 


104415 






LOAD 




;LOAD X 


003744 


104414 


001164 




PRINT 


/SCR 


;PRINT LINE 


CC3750 


0627C2 


00C0C2 




ADD 


82/R2 


J ADD 2 TO CHAR COUNT 


003754 


020237 


001150 




CMP 


P2/WIDTH 


;done line? 


003760 


101761 






BLOS 


3$ 


;N0/ FINISH LINE 


003762 


104414 


001162 




PRINT 


/SLF 


;yes, advance paper 


CC3766 


OCO! 37 


C06644 




JMP 


EXIT 


;EXIT TEST 
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;TEST22 - BACKSPACE TEST 

; 

;2 LINES OF X'S INTERSPACED WITH DASHES WILL BE PRINTED BY PRINTING A SLASH, 
EXECUTING A BACKSPACE, AND THEN PRINTING A BACKSLASH TO 
jCGMPLETE EACH X CHAR. 

;A MAXIMUM OF 127 COLUMNS WILL BE PRINTED BY THIS TEST. 

;////////////////////////////////////////////////////////////////////// 



003772 


10441? 




TEST22: 


PRTHDR 




;PRINT TEST HEADER 


003774 


012702 


000002 




MOV 


#2,R2 


;SET LINE COUNT 


0C4C00 


0137C1 


00115C 


1$: 


MOV 


WIDTH, Rl 


;SET COLUMN COUNT 


004004 


020127 


000177 




CMP 


Rl,#127. 


;CHECK # COLUMNS 


004010 


003402 






BLE 


2$ 


^GREATER THAN 127? 


004012 


012701 


000177 




MOV 


#127. ,R1 


;YES, SET TO 127 


0C4016 


104414 


004054 


2$: 


PPINT 


,10$ 


;LOAD SLASH-BS-BACK SLASH 


004022 


005301 






DEC 


Rl 


;DEC CLOUMN COUNT 


004024 


001405 






BEG 


3$ 


;PRINT LINE IF DONE 


0C4C26 


012700 


0C0C55 




MOV 


#55, RC 


;SET ASCII OF DASH 


004032 


104415 






LOAD 




JLOAD DASH CHAR 


004034 


005301 






DEC 


Rl 


;DEC COLUMN COUNT 


004036 


001367 






BNE 


2$ 


;FINISH LINE 


OC4040 


1C4414 


001162 


3$: 


PRINT 


,$LF 


;PRINT LINE 


004044 


00530? 






DEC 


R2 


?DEC LINE COUNT 


004046 


001354 






BNE 


1$ 


;FINISH TEST 


004050 


000137 


006644 




JMP 


EXIT 


;exit TEST 


004C54 


004057 


000134 


10$: 


«ASCIZ 


<57><10><134> 





- EVEN 
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;////////////////////////////////////////////////////////////////////// 

;TEST23 - CHARACTER GENERATOR TEST 

; 

;TUIS TEST PRINTS A SINGLE LINE (30 CHARACTERS LONG) OF EACH PRINTABLE CHAR 
^PRECEDED BY A LINE OF ALL SPACES 

;////////////////////////////////////////////////////////////////////// 



004060 


104413 




TEST23: FRTHDR 




JPRINT TEST HEADER 


004062 


012700 


000040 


MOV 


#40, RO 


;SET FIRST CHAR 


0C4C66 


012703 


0C0036 


IS: MOV 


#30.,R1 


;SET CHAR COUNT 


004072 


104416 




MLOAD 




;LOAD LINE 


004074 


104414 


001162 


PPINT 


,$LF 


;PRINT LINE 


004100 


005200 




INC 


RO 


;SET NEXT CHAR 


C04102 


020C27 


00C177 


CMP 


R0,«177 


;CHAR = RUBOUT? 


004106 


001367 




BNE 


1$ 


;N0, FINISH TEST 


004110 


000137 


006644 


JMP 


EXIT 


;EXIT TEST 
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;////////////////////////////////////////////////////////////////////// 

;TEST24 - NON-PRINTABLE CHARACTER TEST 

>THIS TEST PRINTS A 30 LINE SWIFL PATTERN WITH NON-PRINTABLE CHARACTERS 
;LOADEO BEFORE AND AFTER THE PRINTING CHARACTERS TO TEST ALL AREAS OF THE 
;CHAF ACTEP BUFFER IN THE LA180. IF THIS TEST IS LOOPED ON/ THE SWIRL 
;P AT TERN WILL CONTINUE, 30 LINES PRINTED EACH TIME THE TEST IS LOOPED. 

ylilllllillllllllllillinillillllllillilllillllllllllillllllllllllUlll 



004114 


104413 




TEST24: 


PRTHDR 




/PRINT TEST HEADER 


004116 


012702 


000041 




MOV 


#41, R2 


/SET START CHAR 


004122 


012705 


000036 




MOV 


#30. /R5 


J SET LINE COUNT 


004126 


01 37C1 


0C115C 




MUV 


WIDTH, Rl 


/GET COLUMN COUNT 


004132 


012703 


000377 




MOV 


#255. ,R3 


?SET BUFFER SIZE 


004136 


1601 03 






SUB 


Rl ,R3 


J SUPTRACT COLUMNS COUNT 


004140 


005004 






CLR 


R4 


/CLEAR CHAR INC COUNT 


C 04 1 4 2 


162703 


CCC035 


2S: 


SUB 


#29./ R3 


/DIVIDE NON-PRINT CHAR COUNT BY 29 


004146 


002402 






BLT 


3$ 




004150 


005204 






INC 


R4 


;R4 = NON-PRINT CHAR INC COUNT 


004152 


000773 






BR 


2$ 




004154 


0C500? 




3$: 


CLP 


R 3 


/CLEAR NQN— PRINT CHAR COUNT 2ND BLOCK 


004156 


1627 01 


AAA in 

U003 / / 


4$: 


SU P 


#255. ,R1 


JCALCULATE # NON-PRINT CHARS/ 1ST BLOCK 


004162 


005401 






NEG 


Rl 




004164 


160301 






SUB 


R3/R3 




004166 


004737 


004320 




JSR 


PC/ 10$ 


/LOAD 1ST BLOCK OF NON-PRINT CHARS 


004172 


013701 


001150 




MOV 


HI DTH/R1 


/SET # PRINTABLE CHARS (COLUMN COUNT) 


004176 


010200 






MOV 


32, RO 


/SET FIRST PRINT CHAR 


0C42O0 


1C44 If 




5$: 


LOAD 




/LOAD PRINTABLE CHAR 


004202 


005301 






DEC 


Rl 


;DEC CHAR COUNT 


004204 


001407 






BEG 


6$ 


/BRANCH IF DONE PRINTABLE CHARS 


004206 


005200 






INC 


RO 


/NEXT CHAR 


0C4210 


020027 


000177 




CMP 


RO, if 1 77 


/CHECK CHAR 


004214 


001371 






BNF 


5$ 


/OK - CONTINUE 


004216 


012700 


000040 




MOV 


#40, RO 


;RESET CHAR = SPACE 


004222 


000766 






BR 


5$ 


;CCNTINUE 


004224 


010301 




c$: 


MOV 


R3/R1 


;SET 9 NON-PRINT CHARS, 2ND BLOCK 


004226 


004737 


004320 




JSR 


PC/10$ 


;LCAD 2ND BLOCK NON-PRINT CHARS 


004232 


104414 


001162 




PRINT 


,$LF 


;PRINT LINE 


004236 


005305 






DEC 


R5 


;DEC LINE COUNT 


004240 


003015 






BGT 


8$ 


;CONTINUE TEST 


004242 


105737 


001154 




TSTB 


TLOOP 


;LOOP ON TEST? 


004246 


001006 






3NE 


7$ 


>YES/ INITIALIZE 


004250 


032777 


040000 


174664 


EIT 


#SW14/@SWR 


;LCOP UN TEST? 


004256 


001002 






BNE 


7$ 


;YES/ INITIALIZE 


004260 


000137 


006644 




JMP 


EXIT 


;exit TEST 


004264 


012705 


000036 


7$: 


MOV 


#30. /R5 


/RESET LINE COUNT 


004270 


005003 






CLR 


R3 


;CLEAR NON-PRINT CHAR COUNT 


004272 


000401 






BR 


9$ 


KONTINUE SWIRL 


004274 


060403 




8$: 


ADD 


K4/K3 


;INC NON-PRINT CHAR COUNT, 2ND BLOCK 


C4276 


013703 


001150 


9$: 


MOV 


WIDTH, Rl 


;reset column count 


004302 


005202 






INC 


R2 


;INC START CHAR 


004304 


020227 


000177 




CMP 


R2/#177 


;CHECK START CHAR 


004310 


001322 






BNE 


4$ 


;0K, CONTINUE 


0C4212 


0127C2 


000041 




MCV 


#41/R2 


>RESET START CHAR 
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004316 000717 BP 4$ ?CCNTINUE 

;////////////////////////////////////////////////////////////////////// 

;RGUTINE TO LOAD NON-PRINTABLE CHARACTERS FOR TEST 24. 

;////////////////////////////////////////////////////////////////////// 



004320 


0C57C1 




ICS: 


TST 


Rl 


/TEST CHAP COUNT 


004322 


001430 






PEG 


14$ 


;RETURN IF ZERO 


004324 


005000 




lis: 


CLR 


RO 


;S£T FIRST NON-PRINT CHAR 


004326 


104415 




12S: 


LOAD 




/LOAD CHAR 


004330 


0C53C1 






DEC 


Rl 


;DEC CHAR COUNT 


004332 


003424 






5LE 


14$ 


;RETURN IF DONE 


004334 


005200 




13$: 


INC 


RO 


/NEXT CHAR 


004336 


020027 


000007 




CMP 


RO/#7 


>CHAR = BELL ? 


0C4242 


0C1774 






EEC, 


13$ 


;YES/ NEXT CHAR 


004344 


020027 


000010 




CMP 


R0/#10 


/CHAR = BS? 


004350 


001771 






BEO 


13$ 


;YES, NEXT CHAR 


0C4352 


020027 


000012 




CMP 


R0,#12 


/CHAR = LF? 


004356 


001766 






bsq 


13$ 


;YES, NEXT CHAR 


004360 


020027 


000014 




CMP 


R0/#14 


/CHAR = FF? 


004364 


001763 






BEG 


13$ 


;YES/ NEXT CHAR 


004366 


020027 


00CC15 




CMP 


R0,f»15 


/CHAR = CP? 


004372 


001760 






PEC 


13$ 


;YES/ NEXT CHAR 


004374 


020027 


000040 




CMP 


R0,#40 


/CHAR = SPACE? 


004400 


001751 






B V .Q 


11$ 


;YES, RESET CHAR 


004402 


QC0751 






BR 


12$ 


;CQNTINUE 


004404 


000207 




14$: 


RTS 


PC 


;return 
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;T EST 25 - BUFFER TEST 

;THIS TFST CHECKS THE CHARACTER BUFFER OF THE LA160 WHILE PRINTING 
;FOUR LINES OF NUMBERS (WITH 2 FLANK LINES BETWEEN THE FIRST AND SECOND 
;L1NE). THESE LINES CAN BE USE!? TO CHECK THE PROPER PRINTING WIDTH. 
;ANY E PRINTED INDICATES AN INCCRRECT LOAD OR BUFFER ACTION. 

;////////////////////////////////////////////////////////////////////// 



004406 


104413 




XEST25: 


PRTHDR 




JPRINT TEST HEADER 


0C441O 


0127 01 


V V V V Z V 




MOV 


#16./ Rl 


/DDI u n A n wUUfvl 


004414 


01 2700 


000105 




MOV 


#"E/RQ 


?SET E CHAR 


004420 


1044 16 






MLQAD 




JLOAD BUFFER 


004422 


012700 


000177 




MOV 


#177/RQ 


JSET RUBQUT CHAR 


0C442€ 


1C44 15 






LOAD 




;CLEAR BUFFER 


004430 


00500? 






CLR 


R? 


?CLEAR CHAR COUNT 


004432 


013701 


001150 




MOV 


WI DTH/R1 


/SET COLUMN COUNT 


004436 


012700 


000061 




MOV 


#61/R0 


JSET CHAR 


004442 


1C4415 




1$ : 


LOAD 




/LOAD CHAR 


004444 


005301 






DEC 


Rl 


JDEC COLUMN COUNT 


004446 


001414 






BEQ 


2$ 


/PRINT LINE WHEN LOADED 


004450 


005202 






INC 


R2 


;INC CHAR COUNT 


0C4452 


0202 17 


000144 




CMP 


fl a / ft iuu* 


iDflNF 

/uuEib unc*of 


004456 


002771 






BLT 


1$ 


JNO, CONTINUE 


004460 


01 2700 


000063 




MOV 


#63/R0 


/SET NEXT CHAR 


004464 


020227 






CMP 


U7 .in 


?DGNE 3*S? 


CG447C 


00 2764 






BLT 


IS 


;NO/ CONTINUE 


004472 


012700 


000062 




MOV 


#62/ RO 


JYES/ SET NEXT CHAR 


004476 


000761 






BR 


1 $ 


/CONTINUE LOADING CHARACTERS 


004500 


104 414 


001162 


2$ : 


PRINT 


,$LF 


/PRINT LINE 


004504 


012701 


000400 




MOV 


#256. /Rl 


;SET CHAR COUNT 


004510 


012700 


000105 




MOV 


#*E/R0 


;SET E CHAR 


004514 


104416 






MLOAD 




;LOAD BUFFER 


004516 


104414 


001162 




PRINT 


,SLF 


;PRINT BLANK LINE 


004522 


0127C1 


000376 




MOV 


#254. /Rl 


;SET CHAR COUNT 


004526 


012700 


000105 




MOV 


#*E/R0 


;SET E CHAR 


004532 


104416 






MLOAD 




;LOAD BUFFER 


004534 


012700 


000177 




MCV 


#177/R0 


;SET RUBOUT CHAR 


OC4540 


K4415 






LOAD 




/CLEAR BUFFER 


004542 


104414 


001162 




PRINT 


/SLF 


/BLANK LINE 


004546 


012701 


000400 




MOV 


#256. /Rl 


;SET CHAR COUNT 


004552 


012700 


000105 




MOV 


#*E/R0 


;SET E CHAR 


0C4556 


1C4416 






MLOAD 




;LCAD BUFFER 


004560 


013701 


001150 




MOV 


WIDTH, Rl 


?SET COLUMN COUNT 


004564 


012700 


000060 




MOV 


#60/R0 


;SET CHAR 


004570 


005002 






CLR 


R2 


;CLEAR CHAR COUNT 


C04572 


1C4415 




3$: 


LOAD 




;LCAD CHAR 


004574 


005301 






DEC 


Rl 


;dec column count 


004576 


001407 






BEQ 


4$ 


;PRINT LINE WHEN LOADED 


004600 


005202 






INC 


R2 


;INC CHAR COUNT 


004602 


020227 


000143 




CMP 


R2/#99. 


;DCNE ZEROS? 


004606 


002771 






BLT 


3$ 


;N0/ CONTINUE 


004610 


012700 


000061 




MOV 


#61/R0 


;YES/ SET NEXT CHAR 


004614 


000766 






BR 


3$ 


KCNTINUE 
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CG4616 


1C4414 


001162 


4$: 


PRINT 


/ SLF 


;PRINT LINE 


004622 


012701 


000400 




MOV 


#?56./Rl 


;SET CHAR COUNT 


004626 


01270C 


000105 




MOV 


#'E/R0 


;SET E CHAR 


004632 


10441C 






MLOAD 




;L0AU BUFFER 


CC4634 


0127CC 


C00177 




MOV 


#177/R0 


?SET RUBOUT CHAR 


004640 


104415 






LOAD 




JCLEAP BUFFER 


004642 


012700 


000060 




MOV 


#60/R0 


;SET CHAR 


004646 


012702 


000011 




MOV 


#9.,R2 


;?ET GROUP COUNT 


CC4652 


0137C1 


001150 




MOV 


WIDTH/R1 


;SET CHAR COUNT 


004656 


104415 




5$: 


LOAD 




;load char 


004660 


00530? 






DEC 


R2 


;DEC GROUP COUNT 


004662 


001010 






BNE 


7S 


;FINISH GROUP 


CC4664 


0052CC 






INC 


RO 


;SET NEXT CHAF 


004666 


020027 


000072 




CMP 


R0,#72 


;gcod CHAR? 


004672 


103402 






BLO 


6$ 


?YES, CONTINUE 


004674 


012700 


000060 




MCV 


#60, RO 


;NC, RESET CHAR TC 


0C4700 


0127C2 


oooci; 


6$: 


MOV 


#10. ,P2 


> RESET GROUP COUNT 


004704 


005301 




7$: 


DEC 


Rl 


?DEC CHAR COUNT 


004706 


00136? 






BNE 


5$ 


;finish line 


004710 


104414 


001162 




PRINT 


/SLF 


;PRINT LINE 


GC4714 


0127C1 


0004CC 




MOV 


#256. /Rl 


?SET CHAR COUNT 


004720 


012700 


000105 




MOV 


#'E/R0 


>SET E CHAR 


004724 


10441f 






MLOAD 




;L0AD BUFFER 


004726 


012700 


000061 




MOV 


#61/R0 


;SET CHAR 


004732 


01 31 


001150 




MOV 


WIDTH/R1 


;SET CHAR COUNT 


004736 


104415 




8$: 


LOAD 




jlgad char 


004740 


005200 






INC 


RO 


;SET NEXT CHAR 


004742 


020027 


000072 




CMP 


RO,#72 


>GCOD CHAR? 


CC4746 


1C34C? 






BLO 


9$ 


;YES, CONTINUE 


004750 


012700 


000060 




MOV 


#60, RO 


JRESET CHAR 


004754 


005301 




9$: 


DEC 


Rl 


;DEC CHAR COUNT 


004756 


0013b7 






BNE 


8$ 


JFINISH LINE 


0C4760 


1C4414 


001162 




PRINT 


,SLF 


;PRINT LINE 


004764 


000137 


006644 




JMP 


EXIT 


?EXIT TEST 
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JTKST20 - GVF.FFRINT TEST 

;ThI £ TFST PRINTS FCUR LINES OF ALTERNATING CHARACTER? AND SPACES 
;1N A CliECKERPGARD PATTERN. EACH LINK IS CVEPPP I NTED TWICE. 

il II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 II 1 1 1 1 1 1 1 II 1 1 1 1 1 1 



0C477C 


1C441? 




TEST if: 


PRTHUP 




;PRINT TEST H F. A D E P 


00477? 


012703 


005050 




MTV 


»6$,p3 


jSKT TAPLF POINTER 


004776 


01270? 


000003 


IS: 


MOV 


»3,R2 


;SFT OVERPRINT CUUNT 


005002 


011300 




2S: 


MOV 


(RJ),RQ 


;gft CHAR PAIR 


0C5CQ4 


0C1417 






HEQ 


5S 


/EXIT IF DUNE TEST 


O0b006 


013701 


00 11 50 




Mny 


WIDTH, Rt 


;SET COLUMN CHUNT 


00501? 


10441^ 




JSi 


LOAD 




;LUAD CAP 


00501 4 


000300 






SWAH 


RO 


>SFT NEXT CHAR 


005C16 


0C52C1 






DEC 


HI 


} PEC COLUMN COUNT 


005020 


001374 






PNE 


3$ 


7FINISH LTNF 


005022 


0053U2 






DEC 


R2 


JIFC OVERPRINT CUUNT 


005024 


001403 






HEQ 


4$ 


JHRANCH IF DUNE OVERPRINT 


0f'5026 


1C441' 


C01 164 




PRINT 


z$CR 


;PRINT LINE 


00503? 


00076? 






P» 


25 


; CONTINUE 


005034 


104414 


001 162 


4S: 


PR I NT 


,f.LF 


;PRINT LINE 


005040 


0057 23 






TST 


(Hj)* 


;INC TAIU.F POINTER 


005C4? 


00075 r 






ItR 


IS 


;l»hINT NEXT LINE 


005044 


0001 37 


006644 


'jS: 


J«P 


KX IT 


;fxtt test 


005050 


201 05 




oS: 


• ASCI I 


/ K / 




0C5C5? 


040f 4T 






.ASCI I 


/ 1*/ 




005054 


0201 V. 






.A.'^II 


/M / 




005056 


021440 






.ASCI I 


/ 8/ 




0050oO 


000000 






.W(JHI) 





; END OF TAI1I.K 
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} TEST 27 - MULTIPLE LINE FEED TEST 

;NUMPER PRINTED INDICATES NUMBER r\ |JNE lEEDS FOLLOW! N<: THAT LINE. 
;DASIlEn REFERENCE LINES ARE PHIfTHl Tl AID IN CHECK I NG PRH'ER 
;I.1NE feed:;. 

}l II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 



050 6? 


10 4 413 




te^t;7: 


P U T HDR 




; PRINT TE.'.T HEADER 


005064 


01 27 03 


0051 70 




mhv 


M'>0,R 1 


JSET T A P 1 . '■' I'll I NT E R 


05 070 


1 11 346 




i$ : 


movd 


(R i>,-(.;p) 


;N1IMDFR l » M T 1 ) STACK 


050 7? 


0047 37 


01 26'>0 




.11 R 


PC, $SH?D 


K(,NVERT « 


CC5C7* 


lf.4 417 






CNLUA 15 




J LP A P. HUMPEP 


051 00 


1 ?13?7 


000001 




CMS'!' 


(PI), Hi 


JTEST || 


005104 


101 40' 






DLLS 




;PRINT FULL DAS" LINE IF OR 


005106 


01 2701 


0000 15 




M"V 


« ? i . , R 1 


JSI-T DASH LENGTH 


0C511? 


i?n?7 


000010 




CMPf 


( R I ) , ff H . 


;ci"-:ck II 


0051 1 f- 


101411 






PLUS 


4$ 


;?,4 IIP 1 - plvlNT ?'> DASHES 


0051 20 


0004 07 






i!R 


r. 


Jit; i,R 3? - PRINT ;H DASIH-N 


0C51?? 


01 3701 


ooi i5r 




MOV 


'all I)TII,R1 


;SET CHAR COUNT 


0051 ?6 


0?01 27 


0000 u 




C»P 


Rl ,1(30. 


; CHECK IT 


0051 I 2 


10300? 






HI! I '5 


10 


JCK, CONTINUE 


005 1 ^4 


01 2701 


coor V 




MIIV 


in . , r 1 


;SKT TO IT 


0051 40 


O0'.»301 




JO: 


D>-C 


R1 


;SUI>TRAfT H»«E 


0051 4? 


01 7700 


00005'. 


4C. : 


HI IV 


(!«.'., RO 


;ShT TASK CHAR 


0051 4 6 


1 044 K 






ML!, AD 




ad dash link 


CC5150 


unci 






Mil V P 


( P U , R 1 


J SET I F COUNT 


0515? 


1 1 37 00 


001 16? 




MHV I 


OLE, HO 


>SFT f.F CUR 


005l5f, 


1041 If 






MI.OAD 




;LOAI) LF'S 


0051 60 


1057 23 






tsth 


( R 3 ) ♦ 


;INC TAHI.F POINTER 


(JC516? 


00 3^47 






h gt 


10 


;finisii test 


005164 


0001 n 


0066 4 4 




.IMP 


EXIT 


J EX IT TEST 


05170 


001 


00? 


004? 5$: 


4IIYTE 


l/?/4,iL,16.,3 2. 


. ,0 



C 05 17 ■» 
05176 



C K 
00 



005?00 



. EVEN 
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/TEST30 - HTBBCN FEED TEST 

; 

;THIS TEST PRINTS A SINGLE COLUMN CF 24 LINES OF X*S DOWN THE LEFT 
;HAND MARGIN OF THE PAGE. 

;////////////////////////////////////////////////////////////////////// 



005200 


104413 




TEST30 : 


PRT"DR 




?PRINT TEST HEADER 


005202 


012701 


000030 




MOV 


#24. /Rl 


;SET LINE COUNT 


0C5206 


1C4414 


005222 


1$: 


PRINT 


/2$ 


;PRINT X - LF 


005212 


005301 






DEC 


Rl 


;DEC LINE COUNT 


005214 


001374 






BNE 


1$ 


JFINISH TEST 


005216 


000137 


006644 




JMP 


EXIT 


;EXTT TEST 


005222 


0T5130 


000 


2$: 


.ASCIZ 


/X/<12> 






005226 






> EVEN 







005226 
005230 
005234 

005240 
005246 
005254 



1C4413 
104414 
000137 

041CC7 
052040 
00341? 



005240 
005262 

046105 
051505 
003412 



•,l ll I II II 1 1 1 1 1 1 1 1 1 1 llll I II 1 1 ll 1 1 1 1 ll ll 1 1 1 1 ll l ill ll ill III ill l ll ill ll I III 

;TEST31 - 3ELL TEST 

;THIS TEST WILL SOUND 5 BELLS WHILE PRINTING "BELL TEST" 

;////////////////////////////////////////////////////////////////////// 



TEST31 : PRTHDR 
PRINT 
JMP 



CC3514 
003524 
000015 



/IS 

$ECP 



;PRINT TEST HEADER 
?DC TEST 
;EXIT TEST 



. ASCI 7 <7>/BELL/<7>/ TEST/<7X15X7><12><7><15> 
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.SBTTL END OF PASS ROUTINE 



jj****************************************** 

;*1NCREVEKT THE PASS NUMBFR (SPASS) 
;*1F THERES A MONITOR GO TO IT 
;*IF THERE ISN'T JUMP TO EXIT 



005262 
005262 
005264 
0C527O 
005276 
005300 
005302 
005304 
005306 
005310 
005312 
GC5216 
005320 
005322 
005324 
CT5^26 
005330 
005332 
005332 
CC5334 
005336 



000240 
005237 
042737 
005327 
000001 
003013 
012737 
000001 
005300 
013700 
CC14Cf 
000005 
004710 
000240 
00024f 
000240 

000137 
CC6644 
000000 



$EOP: 



005336 
1CCC00 



SEND AD ; 



NOP 

INC 

BIC 

DEC 

-WORD 

BGT 

MOV 

.WORD 

$FQPCT 

MOV 

BEG 

RESET 

JSP 

NOP 

NOP 

NOP 



JMP 

SPTNAD: -WORD 
SPASS: .WOPD 



$PASS 

ttlOOCOO/SPASS 

(PC)* 

1 

SDuAGN 

(PC)*,@(PC)+ 
1 

@«42,R0 
$DOAGN 



@(PC)+ 

EXIT 





> ? INCREMENT THE PASS NUMBER 
;?DON'T ALLOW A NEG. NUMBER 
??LOOP? 

;?yfs 

) } restore countep 



} ?get monitor address 
??bpanch if no monitor 
>klear the world 
;;go to monitor 
;;savf room 
;;for 

J7ACT11 
? ?RETURN 

;?NUMBEP ^F PASSES 
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•SBTTL OPTION TESTS 



;////////////////////////////////////////////////////////////////////// 
; 

;TEST 5C - SECONDAPY CHARACTER SET 

; 

yl 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 II 1 1 1 1 1 1 1 U 1 1 1 1 1 Hi 1 1 1 II II 11 1 1 ll 1 1 1 1 1 1 1 II III in 



005340 


104413 




005342 


012737 


000004 


005350 


104414 


005424 


0C5354 


012737 


C00C40 


005362 


004737 


005442 


005366 


104414 


005430 


CC5372 


012737 


000240 


005400 


004737 


005442 


005404 


104414 


001162 


0C5410 


0C5337 


CC5422 


005414 


001355 




005416 


000137 


006644 


005422 


OCOCOC 




005424 


030443 


000075 


005430 


031043 


000075 


005434 


020040 


000040 


0C5440 


ocoocc 




005442 


013701 


001150 


005446 


162701 


000003 


005452 


013700 


005440 


005456 


104415 




005460 


005301 




0C5462 


QC3412 




005464 


005237 


005440 


005470 


013702 


005440 


005474 


042702 


177600 


CC5500 


0227C? 


00C177 


005504 


001412 




005506 


000761 




0C5510 


1C4414 


001162 


005514 


013701 


001150 


005520 


162701 


000003 


005524 


104414 


005434 


0C5530 


0C0755 




005532 


104414 


001162 


005536 


000207 





C05440 



TEST50: 


PPTHDR 






MOV 


#4 /T50PCT 


IS: 


PRINT 


/T50M1 




MOV 


#40,CHLD 




JSP 


PC/PRTSET 




PRINT 


,T50M2 




MCV 


#24C,CHLD 




JSR 


PC/PRTSET 




PRINT 


,$LF 




DEC 


T50PCT 




BNE 


IS 




JMP 


EXIT 


T50PCT: 







T50M1: 


. ASCIZ 


IU-1 


T50M2S 


♦ASCIZ 


/«2=/ 


SP3: 


•ASCIZ 


/ / 


CHLD: 







prtset: 


MOV 


WIDTH, Rl 




SUB 


#3/Rl 


1$: 


MOV 


CHLD,RO 




LOAD 






DEC 


Rl 




RLE 


3$ 


2$: 


INC 


CHLD 




MOV 


CHLD/R2 




BIC 


#177600,R2 




CMP 


#177,P2 




BEG 


4$ 




BR 


IS 


3$: 


PRINT 


,$LF 




MOV 


WIDTH, Rl 




SUB 


#3,R1 




PRINT 


,SP3 




B? 


2$ 


4$: 


PRINT 


,$LF 




RTS 


PC 



;PRINT TEST HEADER 

?SET PAIR COUNT 

;PRINT LEADER # 1 

;SET CHAR (SET ft 1) 

;PRINT ENTIRE CHARACTER SET 

;PRINT LEADER # 2 

;SET CHAR (SET # 2) 

>PRINT ENTIRE CHARACTER SET 

;BLANK LINE 

^DECREMENT PAIR COUNTER 

JCONTINUE IF NOT ZERO 
;EXIT TEST 



/ 2 SPACES 
^CHARACTER HOLD 

;SET COLUMN COUNT 

; ADJUST COUNT 

?FETCH CURRENT CHARACTER 

;load CHAR 
;DEC CHAR COUNT 

;8RANCH IF ft OF COLUMNS IS EXHAUSTED 
7 INCREMENT CHAR 

;copy IT 

?STRIP LEFT BITS 
?IS RESIDUE s 177? 

;yes, bpanch, last char of set is LOADED 

;GC LOAD NEXT CHAR 
JPRINT PARTIAL SET 
;SET COLUMN COUNT AGAIN 
;ADJUST COUNT AGAIN 
;LCAD THREE SPACES 

;continue loading set 
?ppint line 
;return 
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******************* **************************************tk**** 

•SBTTL MAINTENANCE AIDS 



} 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 II II 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 It 

JTEST60 - LIFE TEST 

/ 

;THIS TEST PRINTS 2 FULL LINES CF EACH PRINTABLE CHARACTER 
;THE SECOND LINE IS OVERPRINTED 4 TIMES TO CONSERVE PAPER 
;AT THE END 0* EACH PASS THROUGH THE ENTIRE PRINTABLE CHARACTER 
JSET, THE PASS COUNT WILL BE PRINTED ON THE LA180. 

}iii iii ii 1 1 iii i iii ii i iii iiiiii i iiiii ii 1 1 ii iii urn u i mm i mum in 



005540 


005037 


005652 


TEST60: 


CLR 


PASCNT 


;CLEAR PASS COUNT 


CC5544 


1C441? 




IS: 


PRTHDR 




;PRINT TEST HEADER, FEED BLANK LINES 


005546 


012700 


000041 




MOV 


#41, RO 


;SET FIRST CHAR 


005552 


013701 


001150 


2$: 


MOV 


WIDTH, Rl 


;SET COLUMN COUNT 


005556 


104416 






MLOAD 




;load linf 


OC5560 


1C4414 


001U2 




PRINT 


,$LF 


;PRINT LINE 


005564 


01270? 


000005 




MOV 


#5,R2 


;SET OVERPRINT COUNT 


005570 


013701 


001150 


3$: 


MOV 


WIDTH, Rl 


;SET COLUMN COUNT 


005574 


104416 






MLOAD 




>LCAD LINE 


CC5576 


1C441A 


001164 




PRINT 


,SCR 


JPRINT LINE 


005602 


005307 






DEC 


R2 


?DEC OVERPRINT COUNT 


005604 


001371 






ENE 


3$ 


;FIHISH OVERPRINT 


005606 


104414 


001162 




PRINT 


,$LF 


^ADVANCE PAPER 


0C5€12 


QC52Q0 






INC 


RO 


;SET NEXT CHAR 


005614 


020027 


000177 




CMP 


R0,#177 


;test CHAR 


005620 


001354 






BNE 


2$ 


;0K, CONTINUE 


005622 


005237 


005652 




INC 


PASCNT 


;INC PASS COUNT 


CC56.26 


3C4414 


015102 




PRINT 


,PASMSG 


/LOAD PASS COUNT MESG 


005632 


013746 


005652 




MOV 


PASCNT,-(SP) 


JJPUSH PASCNT ON STACK 


005636 


004737 


012650 




JSR 


PCSSB2D 


;CONVERT # 


005642 


104417 






CNLQAD 




JLOAD # 


0C5644 


1C4414 


001162 




PRINT 


,$LF 


;PRINT MESG 


005650 


000735 






BR 


IS 


) START NEXT PASS 


005652 


000000 




PASCNTI 


a WORD 





?PASS COUNT 
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>////////////////////////////////////////////////////////////////////// 

;TEST61 - SCOPE DRIVE ROUTINE 

>THIS TEST WILL LOAD A CHARACTEF SET IN SWITCH REGISTER BITS 0-6 
;IF SWITCH 9 IS DOWN, FULL LINES WILL BF LOADED S, PRINTED (LF). 
;IF SWITCH 9 IS UP, THE CHAR WILL BE LOADED ONCE AND THE PROGRAM 
;WILL HALT. NO LINE FEEDS OH CARRIAGE RETURNS WILL BE SENT BY THE 
;PROGRAH. 

>////////////////////////////////////////////////////////////////////// 



U U 3 C j 1 






TEST 61: 


PPTHDP 




iPtiTMT TP5T UptnpD 
,rKlWr I to I ntUAUbK 


005656 


Ann/ ii 
uuui i / 








11 $ 


iCUPTK CUTTTP DPP btbCT 


005660 


013701 


001150 


10$: 


MOV 


WIDTH, Rl 


JSET COLUMN COUNT 


005664 


017700 


173252 


1$: 


MOV 


@SWR,R0 


;GET CHARACTER 


CG5670 


04270C 


177600 




BIC 


JTC177,P0 


;MASK UNWANTED BITS 


005674 


104415 






LOAD 




;L0AD CHAP 


005676 


020027 


000015 




CMP 


R0,#15 


/CHAR = CP? 


005702 


001410 






BEO 


11$ 


;YES, RESET CCLUMN COUNT 


005704 


020C27 


000012 




CMP 


R0,#12 


/CHAR = LF? 


005710 


001405 






BEQ 


11$ 


>YES, RESFT COLUMN COUNT 


005712 


020027 


000040 




CMP 


R0,#40 


;non-printable char? 


005716 


103404 






BLO 


12$ 


>YES, DON'T DEC COLUMN COUNT 


0C5720 


0C53C1 






DEC 


Rl 


;DEC COLUMN COUNT 


005722 


000402 






PR 


12$ 


CONTINUE 


005724 


013701 


001150 


11$: 


MOV 


WIDTH, Rl 


/RESET COLUMN COUNT 


005730 


032777 


001000 


173204 12$: 


BIT 


#SW9,@SWR 


;test SWITCH 9 


005736 


001402 






BEQ 


2$ 


?PRINT FULL LINE 


005740 


000000 






HALT 




;ONE CHAR - HALT 


005742 


000750 






BR 


1$ 


;get next char 


005744 


0C57C1 




2$: 


TST 


Rl 


;test column count 


005746 


003346 






BGT 


1$ 


^CONTINUE IF NOT DONE LINE 


005750 


001403 






BEQ 


3$ 


;LOADED MORE THAN WIDTH? 


005752 


012700 


000177 




MOV 


#177, RO 


;YES, CLEAR BUFFER 


005756 


1C4415 






LOAD 






005760 


104414 


001162 


3$: 


PRINT 


,$LF 


1PRINT LINE, ADVANCE PAPER 


005764 


000735 






BR 


10$ 


/CONTINHE 
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;////////////////////////////////////////////////////////////////////// 

;TEST62 - LINE PRINT TEST 

>THIS TEST POINTS FULL LINES CONTINUOUSLY OF WHATEVER CHARACTER 
;TS TYPED ON THE CONSOLE KEYEOAPD. TO CHANGE CHARACTERS, RESELECT 
;THIS TEST. AN ERROR MESG WILL BE PRINTED IF THIS TEST IS SELECTED 
; AND A CONSOLE TERMINAL DOES NCT EXIST. 

;////////////////////////////////////////////////////////////////////// 



005766 


104413 




TEST62 : 


PRTHDR 




>PRINT TEST HEADER 


CC5770 


1C5737 


0C1173 




TSTB 


$TPFLG 


;CHECK IF TERMINAL EXISTS 


005774 


10047? 






BMI 


TERP 


;exit IF NONE 


005776 


104401 


015205 




TYPE 


,TCFAR 


;type instr 


006002 


105777 


173072 


*$: 


TST3 


gTKS 


?WAIT FOR KYBD FLAG 


006C06 


lC037f 






BPL 


2$ 




006010 


104420 






CHECK 




;CHECK CHAR FOR CONTROL 


006012 


017700 


173064 




MOV 


*TKB,R0 


;get char 


006016 


010046 






MOV 


R0,-(SP) 


KHAR ONTO STACK 


0C6C20 


0C4737 


010344 




JSR 


FC,$TYPEC 


;ECHO CHAR 


006024 


0127 46 


000200 




MOV 


#CRLF,-(SP) 


/SEND CR-LF 


006030 


004737 


010344 




JSR 


PC,$TYPEC 




006034 


013701 


001150 


1$: 


MCV 


WIUTH,R1 


>SET COLUMN COUNT 


CC6C4C 


1C441? 






MLOAD 




;lcad line 


006042 


104414 


00116? 




PRINT 


,$LF 


;PRINT LINE 


006046 


00077? 






BR 


1$ 


;CONTINUE 
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;TtST63 - CHARACTER PRINT TEST 

/ 

>THIS TEST LOADS WHATEVER CHARACTER IS TYPED ON THE CONSOLE KEYBOARD 
;T0 THE LA180/ CHARACTER BY CHARACTER. 

;IF THIS TEST IS SELECTED AND A CONSOLE TERMINAL DOES NOT EXIST/ 
;AN ERROR MESSAGE KILL BE PRINTED. 

;////////////////////////////////////////////////////////////////////// 



U v v v 3 v 


1C44 13 




T E ST 6 3 S 


P9THDP 






V UOU3 £ 


1057 37 


001173 






STPFLG 


/ LUEXK ir lfcKr»lNAL t a 1 5Tb 


006056 


100442 






BMI 


TERR 


;EXIT IF NONE 


006060 


104401 


015205 




TYPE 


/TCHAR 


;type instr 




1 044 C 1 


001161 






/SCRLF 


/ShNU UK-Lr 


006070 


105777 


173004 


1$: 


TSTB 


(?TKS 


?WAIT FOR KYBD FLAG 


006074 


100375 






BPL 


1$ 


?KAIT FOR FLAG 


006076 


104420 






CHECK 




;CHECK CHAR FOR CONTROL 


C0610C 


01770r 


17277C 




MOV 


@TKe,RC 


;GET CHAR 


006104 


010046 






MOV 


RO,-(SP) 


JCHAR ONTO STACK 


006106 


0C4737 


010344 




JSR 


PCSTYPEC 


;echo CHAR 


006112 


104415 






LOAD 




;L0AD CHAR 


creii4 


020027 


0CCC15 




CMP 


RO,#CR 


/SEND LF AFTER CR 


006120 


001003 






BNE 


2$ 




006122 


012746 


000012 




MOV 


#LF,-(SP) 




006126 


000413 






BR 


4$ 




CC613C 


020027 


000C12 


2$: 


CMP 


RO,#LF 


/SEND CR AFTER LF 


006134 


00100? 






BNE 


3$ 




006136 


012746 


000015 




MOV 


*CR,-(SP) 




006142 


000405 






BR 


4$ 




C06144 


C20C27 


0C0014 


3$: 


CMP 


RC,#FF 


?SND CRLF AFTER FF 


006150 


001347 






BNE 


IS 




006152 


012746 


000200 




MOV 


#CRLF,-(SP) 




006156 


004737 


010344 


4$: 


JSR 


PC/STYPEC 




006162 


0C074? 






BR 


IS 


?CONTINUE 


006164 


104414 


015225 


TERR : 


PRINT 


/NCMSG 


;PRINT NO CONSOLE MESG 


006170 


000137 


006752 




JMP 


SELECT 


/RETURN TO SELECT TEST (HALT) 



HAINDFC-11-DZLAE-B MACYll 27(1006) 01-MAR-7"* 14:45 PAGE 55 

DZLAEB.Pll 28-FEB-77 15:08 MAINTENANCE AIDS 

;////////////////////////////////////////////////////////////////////// 

>TEST 64 - SELECTED PATTERN PRINT TEST 

;l) TYPE DESIRED CHARACTERS INCLUDING/ WHERE APPROPRIATE/ LA180 
; PRINT COMMANDS (IE./ LF OR CR CR FF). TERMINATE STRING BY 
; TYPING CTL-A. PRINTING WILL BEGIN. 

;OR 

;2) TYPE A DESIRED PATTERN (TO FE AUTOMATICALLY REPEATED UNTIL 

; PREVIOUSLY SPECIFIED # OF COLUMNS HAS BEEN FILLED). 

; DC NOT TNSERT ANY PRINT COMMANDS. TERMINATE PATTERN BY TYPING 

; CTL-B. AFTER PROPAGATING THE PATTERN TO THE PROPER # OF COLUMNS 

; AN LF PRINT COMMAND WILL BE INSERTED AND PRINTING WILL BEGIN. 

;TC STOP PRINTING AND ENTER A NFW PATTERN TYPE CTL-SPACE. 
;T0 SELECT A NEW TEST TYPE DELETE/RUEOUT. 
;TO CHANGE (i OF COLUMNS TYPE CTL-C. 

'■Jll llllllllllllllllllllllllll lllllllllllltllUllllllllllllllllllllllll 



006174 


104413 




TEST64: 


PRTf'DR 




;PRINT TEST HEADER 


006176 


105737 


001173 




TSTB 


STPFLG 


JCHECK IF CONSOLE TERMINAL EXISTS 


0C62Q2 


1C077P 






EMI 


TERR 


;exit IF NONE 


006204 


104401 


015415 




TYPE 


/T64MSG 


JTYPE BRIEF INSTRS 


006210 


104401 


015464 


ACCEPT: 


TYPE 


/TWCBEL 


>RING CONSOLE BELL TWICE 


0C6214 


0127C! 


016174 




MOV 


ffTABL64/Pl 


;SET POINTER LEFTMOST IN TABLE 


006220 


012700 


000177 




MOV 


#177, RO 




006224 


104415 






LOAD 




;RESET PRINTER BUFFER POINTER. 


006226 


105777 


172646 


2$: 


TSTB 


@TKS 




006232 


1C0375 






BPL 


2$ 


>WAIT FOR CONSOLE KBD FLAG 


006234 


104420 






CHECK 




JCHECK FOP FBD CONTROL CHARACTERS 
/AND CHECK SWITCHES ALSO. 


006236 


017700 


172640 




MHV 


@TKB/R0 


JSAME CHAR TO RO 


006542 


0427CT 


17760C 




BIC 


#177600/P0 


;STRIP UNWANTED BITS 


006246 


02270C 


000001 




CMP 


Jfl/RO 




006252 


001435 






BEQ 


CTLA 


;branch if control a 


006254 


0227CP 


000002 




CMP 


#2/PC 




006260 


001440 






BEG 


CTLP 


BRANCH IF CONTROL B 


006262 


010046 






MOV 


R0/-(SP) 


/CHAR ONTO STACK 


006264 


004737 


010344 




JSR 


PC/STYPEC 


;ECHO CHARACTER TO CONSOLE 


0C6P70 


0C5726 






TST 


(SP) + 


JADJUST STACK 


006272 


110021 






MOVP 


R0,(R1)+ 


KHAR TO PRINT TABLE 


006274 


020027 


000015 




CMP 


R0/#CR 


/SEND LF AFTER CR (TO CONSOLE) 


006300 


001003 






BNE 


4S 




006302 


012746 


000012 




MOV 


#LF/-(SP) 




006306 


000413 






BP 


8$ 




006310 


020027 


000012 


4$: 


CMP 


R0/#LF 


/SEND CR AFTER LF (TO CONSOLE) 


005314 


001003 






BNE 


6$ 




0C6316 


032746 


000015 




MOV 


ftCR/-(SP) 




006322 


000405 






BP 


8$ 




006324 


020027 


000014 


6$: 


CMP 


R0/#FF 


/SEND CRLF AFTER FF (TO CONSOLE) 


006330 


001336 






BNE 


2$ 


^CONTINUE ACCEPTING PATTERN 


0C6332 


012746 


000200 




MOV 


»CRLF/-(SP) 




006336 


004737 


010344 


8$: 


JSR 


PC/STYPEC 
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006342 


005726 








TST 


(SP) + 


;adjust STACK 


006344 


0CO73C 








BR 


2S 


/CONTINUE ACCEPTING PATTERN 


006346 


022701 


016174 




CTLA: 


CMP 


#TABL64,R1 


;IF POINTER IS LEFTMOST 


006352 


00144* 








BEC 


PRPAT 


;RESUME PRINTING PREVIOUS PATTERN 


0C6354 


010137 


0C6512 






MOV 


Rl/ENDADR 


/CURRENT POINTER TO ENDADR 


006360 


00044? 








PR 


PRPAT 


;GC PRINT NEW PATTERN 


006362 


022701 


016174 




CTL9: 


CMP 


#TABL64,Rl 


;1F POINTER IS LEFTMOST 


CC6366 


0C1437 








BEQ 


PRPAT 


; RESUME PRINTING PREVIOUS PATTERN 


006370 


162701 


016174 






SUB 


#TARL64,R1 


;GET PATTERN LENGTH INTO Rl 


006374 


013737 


001150 


006506 




MOV 


WIDTH, COLCTR 


;CET # OF COLUMNS INTO COUNTEP 


006402 


010137 


006510 






MOV 


R1,CHACTR 


;GET # CF CHARS INTO COUNTER 


006406 


OC2701 


016174 






ADD 


#TABL64,R1 


/RE-ESTABLISH POINTER 


00641? 


01270? 


016174 






MOV 


#TABL64,R2 


JFSTARLISH SECONDARY POINTER 


006416 


163737 


006510 


006506 




SUB 


CHACTR/CQLCTR 


;REMAINING COLUMNS INTO COLCTR 


006424 


112221 






PRCPAT*. 


M0V3 


(R2H,(R1) + 


/PROPAGATE PATTERN TO # OF SPECIFIED 


0C6426 


0C5337 


0065G6 






DEC 


COLCTP 




006432 


003001 








BGT 


IS 




006434 


000407 








BR 


DOHCOL 




006436 


005337 


006510 




IS: 


DEC 


CHACTR 




0C6442 


0C14C1 








BEQ 


DUNPAT 




006444 


000767 








BR 


PROPAT 




006446 


01270? 


016174 




dunpat: 


MOV 


8TABL64/R2 


;RE-ADDRESS PATTERN 


006452 


000764 








BR 


PROPAT 




006454 


11 27 21 


00CC12 




ounccl: 


MCVP 


#LF,(R1)+ 


;INSEPT LA180 PRINT COMMAND 


006460 


010137 


006512 






MOV 


Rl/ENDADR 




006464 


00040C 








BR 


PRPAT 


;G0 PRINT REPEATED PATTERN 



006466 0127C1 

006472 112100 

006474 1C4415 

CC6476 020137 

006502 001771 

006504 000772 



016174 



PRPAT: 
IS: 



MOV 

MOVP 

LOAD 

CMP 
BEQ 
BR 



#TABL64/R1 
(RD + /RO 



Rl/FNDADR 

PRPAT 

1$ 



;SET POINTER LEFTMOST 

;LOAD CHAP (FROM RO) TO LA180 

;ALSC CHK CONSOLE KBD AND CPU SWS 

;END OF TABLE DATA? 

?YES, PRINT IT OVER. 

;NO, CONTINUE LOADING LA180 BUFFER 



006506 000000 
006510 OCOOOC 
006512 016240 



COLCTR : 
CHACTR : 

ENDADR : #TABL64+44 



/COLUMN COUNTER 
CHARACTER COUNTER 

;HCLDS ENDING ADOR+1 OF PRINT DATA. 



006514 005037 001120 

006520 004737 001764 

006524 CC4737 002032 

006530 000137 006644 



TEST76 : CLR SERSW 

JSR PC/QU01 

JSR PC/QU02 

JMP EXIT 



KLFAR SWITCH (TO PARALLEL) 
;INITILIZE ACTFST AND SELECT DRIVER 
;TYPE INTF MISC IF CONSOLE 

;exit test. 



006534 012737 052525 001120 TEST77: MOV #52525,SERSN /SET SWITCH (TC SERIAL) 

CC6542 0C4737 001764 JSR PC/GU01 /INITILIZE ACTFST AND SELECT DRIVER 

006546 004737 002032 JSR PC/QU02 /TYPE INTF MISC IF CONSOLE 

006552 0001.37 006644 JMP EXIT /EXIT TEST 
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;////////////////////////////////////////////////////////////////////// 

.SBTTL CLOCK INTERRUPT SERVICE ROUTINES 

il II lllllllllllllll lllllllllll llllllllllllllllll IIIIIIIHIIIII lllllllll 



006556 


004737 


006614 


DCI: 


JSP 


PC/SRDCI 


;DISABLE KW11-P INTERRUPT 


006562 


000177 


000022 




JMP 


8T0RTN 


/TIME OUT RETURN 


CC6566 


005337 


006606 


LKSPV: 


DEC 


CNTR 


;DEC TIME COUNT 


006572 


001401 






BFC 


1$ 


/TIME Ol'T? 


006574 


000002 






RTI 




/NC, RETURN 


0C6576 


CC4737 


0C6U4 


1$: 


JSP 


PC/SRDCI 


/DISABLE Kfcll-L INTERRUPT 


006602 


000177 


000002 




JMP 


faTQPTN 


/TI^E OUT RETURN 


006606 


OOOOOC 




CNTR : 


-WORD 





/KW11-L TIMING COUNT 


006610 


ocoocr 




TORT N : 


.WGPD 


C 


;TIME OUT RETURN ADDRESS 


006612 


007020 




mincnt: 


• WOPD 


7020 


;60 HZ LINE FPEQ. MINUTE COUNT 



;SET TO 5670(8) FOR 50 HZ. LINE FREQ. 

• f l II 1 1 1 1 1 1 1 II 1 1 II 1 1 1 1 II I II 1 1 II 1 1 1 1 III! 1 1 1 1 1 II 1 1 1 1 1 II 1 1 II 1 1 1 1 II I II 1 1 1 III 

SUBROUTINE TO DISABLE CLOCK OPTION INTERRUPTS 

)i ii i nil 1 1 nil nil i iiiiii ii ii i iii iii in m ii ill ii ill in ill i ii i inn iii 



006614 


105737 


001155 




SRCCI: 


TSTB 


CKFLAG 


;CHECK CLOCK OPTION FLAG 


CC6* 20 


CC141H 








BE I. 


2$ 


/RETUPN IF NONE 


006622 


002404 








BLT 


1$ 


; BRANCH IF KW11-P 


006624 


042777 


000100 


172306 




BIC 


#9IT6,@LKS 


/DISABLE KWll-L INTERRUPT 


006632 


000403 








BR 


2$ 


/RETURN 


0G6634 


042777 


000100 


172272 


1$: 


PIC 


#3IT6/@PLKS 


/DISABLE KW11-P INTERRUPT 


006642 


000207 






2$: 


RTS 


PC 
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;////////////////////////////////////////////////////////////////////// 

•SBTTL TEST EXIT ROUTINE 

;////////////////////////////////////////////////////////////////////// 



006644 


004737 


007140 




EXIT : 


JSR 


PC/KYBDF 


* r u cpv POD v VR n PI IP 

/ u n n v. is run mdu r i* a v 


006650 


032777 


040000 


172264 




BIT 


#SW14/ @SWR 


;LOOP ON TEST SWITCH? 


0C6656 


0C1C ic 








BNE 


3$ 


SVF«5. DPTIIRN Til TP ST 


006660 


032777 


000400 


172254 




BIT 


#SW8,flSWR 


;MANT SW REG TEST SELECTION? 


006666 


001031 








BNE 


SELECT 


;yes, select test (halt) 


006670 


1C5737 


001154 






TSTB 


TLOOP 


/ K YBD CTRL - LOOP ON TEST? 


006674 


001007 








BNE 


3$ 


;yes, return to test 


006676 


105737 


001153 






TSTB 


TRONE 


;kybd CTRL - run test once? 


006702 


001402 








BEQ 


2$ 


;no, continue 


006704 


0C0137 


007510 






JMP 


TSEL 


;yes, select test 


006710 


005237 


001146 




2$: 


INC 


STSTNM 


; increment test number 


006714 


013700 


001146 




3$: 


MOV 


STSTNM/RO 


;get new test number 


O0672O 


0C63CC 








ASL 


RO 


;set table pointer 


006722 


005760 


013356 






TST 


TAT(RO) 


;check address in table 


006726 


003005 








BGT 


4$ 


;qk, go to test 


006730 


001767 








BEQ 


2$ 


JZERO, SKIP TEST 


0C6732 


012737 


OOQC/C 


001146 




MOV 


#20,$TSTNM 


/END OF SEQ. - RESET TEST # TO 20 


006740 


000765 








BR 


3$ 


;test new number 


006742 


012706 


001100 




4$: 


MOV 


#STACK,SP 


/RESET STACK 


006746 


000170 


013356 






JMP 


@TAT(RO) 


;go TO TEST 
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ft******************************************** 



.SBTTL ROUTINES TO SELECT DESIFED TEST 



>l II 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 II I II 1 1 II 1 1 1 1 II 1 1 1 1 1 1 II 1 1 1 1 1 1 II 1 1 II II 1 1 III II II I III 



;RuUTINE TO SELECT TEST FROM SW REG/ °ITS 0-5 



ylil llllllllllllllllllllllll lllll lllllll lllll lllllll llllllllll lllllllll 



006752 


0G4737 


006614 




SELECT: 


JSR 


PC/SRDCI 


/CLEAR CLOCK INTER 


006756 


105037 


001152 






CLRP 


STRONE 


/CLEAR PROGRAM CONTROL FLAGS 


006762 


105037 


001153 






CLRB 


TRONE 




006766 


1C5C37 


001154 






CLRP 


TLOOP 




006772 


004737 


007140 






JSR 


PC/KYBDF 


;CHFCK IF KYBD FLAG 


006776 


000000 






1$: 


HALT 




;NO KYBD FLAG - HALT 

;WAIT FOR CPERATOR TO SELECT ' 

;PRESS CONTINUE WHEN READY 


007000 


032777 


000400 


172134 




BIT 


#SVi8,faSWR 


JCHECK SWB 


007006 


001403 








BEQ 


2$ 


/WANT TO RUN TEST ONCE S HALT 


007010 


112737 


177777 


001152 




MOVB 


8-1/STRONE 


;YES/ SET FLAG 


0C7C16 


Q177CC 


17212C 




2$: 


MOV 


13SWP/PC 


;N0/ CHECK SW REG 


007022 


042700 


177700 






BIC 


#*C77,R0 


/MASK BITS 0-5 


007026 


010037 


001146 






MOV 


RO/STSTNM 


;SAVE TEST NUMBER 


007C32 


0C63Cr 








ASL 


PO 


;SET TABLE POINTER 


007034 


005760 


013356 






TST 


TAT(RO) 


;CHECK IF TEST IS IN TABLE 


007040 


003744 








BLE 


SELECT 


;NOT THERE/ GET NEW SELECTION 


007042 


012706 


001100 






MOV 


#STACK/SP 


fRESET STACK 


0C7C46 


CC017C 


01335f 






JMP 


@TAT(P0) 


;GO TC SELECTED TEST 



>////////////////////////////////////////////////////////////////////// 



;KLUTINE TC CHECK FOR KYBD OR SW REG CONTPCL 
;CALL: CHECK 



;////////////////////////////////////////////////////////////////////// 



CC7C52 


0C4737 


007140 


$CHECK: 


JSR 


PC/KYBDF 


;CHECK FOP KYED FLAG 


007056 


010046 






MOV 


R0,-(SP) 


;?PUSH PO ON STACK 


007060 


005000 






CLR 


RO 


JCLEAR RO 


007C62 


032777 


00040C 


172052 


BIT 


#SW8,@SWR 


JCHECK SW8 


007070 


001401 






BEG 


1$ 


; BR ANCH IF SW DOWN 


007072 


005300 






DEC 


RO 


?SET FLAG IF UP 


CG7C74 


123700 


001152 


1$: 


CMPB 


STRONE/RO 


;CHANGE IN SWITCH? 


007100 


001402 






BEQ 


2$ 


;N0/ RETURN (CHANGE TO 0402 


007102 


000137 


006752 




JMP 


SELECT 


;YES/ SELECT TEST (HALT) 


C07106 






2$: 








007106 


012600 






MOV 


(SP)4,RQ 


; JPCP STACK INTO RO 


007110 


000002 






RTI 




/RETURN 
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;////////////////////////////////////////////////////////////////////// 

;RCUTINE TO WAIT FOP OPERATOR ACTION 

;////////////////////////////////////////////////////////////////////// 



007112 


105737 


001173 


SHQLD: 


TSTE 


STPFLG 


; TERMINAL THERE? 


007116 


10000? 






BPL 


IS 


;branch if yes 


007120 


000000 






HALT 




IHALT IF NO 


0C7122 


OC04C5 






BR 


2$ 


JPETURN ON CONTINUE SWITCH 


007124 


104401 


015144 


IS: 


TYPE 


,WTMSG 


;type wait mesg 


007130 


105777 


171744 


3$: 


TSTB 


@TKS 


/KYBD FLAG? 


007134 


100375 






BPL 


3S 


;ND, WAIT FOR FLAG 


0C7136 


000CG2 




2$: 


RTI 




?P£TURN 



)l III II II 1 1 1 1 1 1 1 II II III I II I in I II 1 1 1 1 III II I mil II in I nil 1 1 II III III III 

/routine TO CHECK for KEYBOARD FLAGS 

/WHEN LOCKING FOR CONTROL FROM THE CONSOLE DEVICE KEYBOARD 
/CALL : JSR PC/KYBDF 

;////////////////////////////////////////////////////////////////////// 



007140 


105737 


001173 




KYBDF : 


TSTB 


STPFLG 


/TERMINAL THERE? 


007144 


100527 








BMI 


IS 


/NO, EXIT 


0C7146 


1C5777 


171726 






TSTB 


@TKS 


/FLAG SET? 


007152 


100124 








BPL 


IS 


;no - EXIT 


007154 


104406 






2$i 


RDCHR 




;FLAG SET - READ CHAR 


007156 


023727 


001142 


000176 




CMP 


SWR,#SWREG 


/USING HARDWARE SW REG? 


0C7164 


0C11C1 








BNE 


4$ 


/ BRANCH IF YES 


007166 


022716 


000007 






CMP 


#7,(SP) 


; C H A R = BEL <007>? 


007172 


001076 








BNE 


4$ 


/BRANCH IF NOT 


C07174 


0C572C 






5$: 


TST 


(SP) + 


/RESET STACK 


007176 


005037 


007436 






CLP 


20$ 


/CLEAR NEW SW SETTING 


007202 


005037 


007440 






CLR 


30$ 


/CLEAR INPUT FLAG 


007206 


104401 


015122 






TYPE 


,DSMSG1 


;type mesg 


0C7212 


013746 


00C176 






MOV 


SWREG,-(SP) 


//PUSH SWREG ON STACK 


007216 


104402 








TYPOC 




;type it 


007220 


104401 


015132 






TYPE 


,DSMSG2 


;TYPE MORE OF MESG 


007224 


104406 






9$: 


RDCHR 




/READ CHAR 


CC7226 


02U27 


000025 






CMP 


(SP),#25 


/CHAR = CONTROL-U ? 


007232 


001003 








ENE 


10S 


/BRANCH IF NOT 


007234 


104401 


012242 






TYPE 


,$CNTLU 


/echo contrcl-u 


007240 


0C0755 








BR 


5$ 


;restart routine 


007242 


021627 


000015 




10$: 


CMP 


(SP)/#CR 


/char = cr? 


007246 


001011 








BNE 


7$ 


/branch if not 


007250 


104401 


001161 






TYPE 


,$CRLF 


/echo CR-LF 


007254 


0C5737 


007440 






TST 


30S 


;check input flag 


007260 


001460 








BEO 


6$ 


;LEAVE SW SETTINGS ALONE 


007262 


013737 


007436 


000176 




MOV 


20$, SWREG 


;SET NEW SW REG 


007270 


000454 








BR 


6$ 


/RETURN TC TEST 


007272 


02 If 27 


000012 




7$: 


CMP 


(SP),#LF 


/CHAR = LF? 


007276 


001011 








BNE 


8$ 


/BRANCH IF NOT 


007300 


104401 


001161 






TYPE 


/SCRLF 


;echo CR-LF 


007304 


005737 


007440 






TST 


30$ 


/CHECK INPUT FLAG 
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007310 


001477 








BEQ 


TSEL 


/LEAVE SW SETTINGS ALONE IF NO INPUT 


007312 


013737 


007436 


000176 




MOV 


20$/ SWREG 


;SET NEW SW REG 


007320 


000473 








BR 


TSEL 


;GO TO TEST SELECT (VIA KEYBOARD) 


007322 


042716 


177770 




8$: 


BIC 


#"C7,(SP) 


;mask digit 


0T732* 


0€2716 


ooocec 






ADD 


#60, (SP) 


/MAKE ASCII 


007332 


004737 


010344 






JSR 


PC/STYPEC 


/PRINT DIGIT 


007336 


042716 


177770 






BIC 


rC7,(SP) 


/"ASK DIGIT 


007342 


006337 


007436 






ASL 


20$ 


;SHTFT SWITCH SETTINGS FOR NEW ONE 


0C7346 


CT6337 


007436 






ASL 


20S 




007352 


006337 


007436 






ASL 


20$ 




007356 


062637 


007436 






ADD 


(SP)+,20$ 


;add NEW SWITCH 


C07362 


0C5237 


00744C 






INC 


30$ 


;SET INPUT FLAG 


007366 


000716 








BR 


9$ 


/CONTINUE 


007370 


022716 


000177 




4$: 


CMP 


#177, (SP) 


/CHAR = RUBOUT? 


007374 


001001 








BNE 


3$ 


/NC, CHECK AGAIN 


CC7276 


CC0444 








BR 


TSEL 


;YES, GET TEST SELECTION (VIA KEYBOARD) 


007400 


022716 


000003 




3$: 


CMP 


#3,(SP) 


KHAR = CNTL C ? 


007404 


001416 








BEQ 


KYBDST 


;YES, GET # COLUMNS 


007406 


005716 








TST 


(SP) 


;IS CODF = NUL, IE4, CTL-SPACE? 


0C7410 


0C10C4 








BNE 


6$ 


/BRANCH IF NOT 


007412 


0227 37 


000064 


001146 




CMP 


#64,$TSTNM 


/IS THIS TEST 64 ? 


007420 


001402 








BEQ 


11$ 


/BRANCH IF YES 


0C7422 


0C5726 






6$: 


TST 


(SP)* 


;reset STACK 


007424 


000207 






1$: 


RTS 


PC 


/NO, RETURN 


007426 


012706 


001100 




11$: 


MOV 


#STACK,SP 


;fix STACK 


CC7432 


OC0137 


00621C 






JMP 


ACCEPT 


;TO WITHIN TEST 64 


007436 


000000 






20$: 


-WORD 





;SW SETTING INPUT 


007440 


000000 






30$: 


*WORD 





/INPUT FLAG 
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;////////////////////////////////////////////////////////////////////// 

;RCUTINE TO SET NUMBER OF COLUMNS FROM CONSOLE DEVICE KYBD 
/////////////////////////////////////////////////////////////////////// 



007442 


004737 


006614 


kybdst: 


JSR 


PC,SRDCI 


;CLEAR CLOCK INTER 


007446 


104401 


014751 




TYPE 


/COLUMN 


;TYPE COLUMNS MESSAGE 


007452 


104410 




2$: 


RDDEC 




;GET M COLUMNS 


007454 


012605 






MOV 


(SP)*,R5 


;;POP STACK INTO R5 


0C7456 


020527 


000204 




CMP 


R5/&132. 


;TEST SIZE OF NUMBER 


007462 


003003 






BGT 


IS 


>TOO BIG # GET AGAIN 


007464 


020527 


000002 




CMP 


R5A2 


;TEST SIZE AGAIN 


CC7470 


103005 






BHIS 


3$ 


; BRANCH IF OK 


007472 


104401 


001160 


1$: 


TYPE 


,$QUES 


;INPUT ERROR - TYPE QUESTION MARK 


007476 


104401 


001161 




TYPE 


z$CRLF 




007502 


000763 






BR 


2$ 


>GET INPUT AGAIN 


007504 


0105 37 


001150 


3$: 


MOV 


R5/ WIDTH 


;OK/ SAVE # COLUMNS 



?////////////////////////////////////////////////////////////////////// 

;RUUTINE TO FETCH TEST # FROM CONSOLE KEYBOARD 
; AND DETERMINE TEST ACTION . 

;TfcST NUMBER MUST BE OCTAL/ FOLLOWED BY ONE OF THE 
FOLLOWING CONTROL CHARACTERS: 

; PERIOD . = RUN TEST ONCE AND SELECT NEXT TEST 

'} L LOOP ON SELECTED TEST 

; 

; S START TEST SEQUENCE WITH SELECTED TEST 

;////////////////////////////////////////////////////////////////////// 



007510 


004737 


006614 


TSEL: JSR 


PC/SRDCI 


;CLEAR CLOCK INTER 


007514 


105037 


001153 


nCLRB 


TRONE 


;CLEAR PROGRAM CONTROL FLAGS 


007520 


105037 


001154 


CLRB 


TLOOP 




007524 


1C5C37 


001152 


CLPB 


STRONE 




007530 


104401 


014767 


TYPE 


/SELTST 


;type select test mesg 


007534 


104407 




5$: RDLIN 




;get test selection 


007536 


012605 




MOV 


(SP)+,R5 


;?POP STACK INTO R5 


CC7540 


112500 




MOVB 


(R5)+/R0 


;SET TEST # IN RO 


007542 


042700 


177600 


BIC 


JTC177/R0 




007546 


022700 


000003 


CMP 


#3/R0 


;CHECK IF CHAR = CNTL-C 


C07552 


00173? 




BEQ 


KYBDST 


;GET n COLUMNS IF CNTL-C 


007554 


020027 


000060 


CMP 


R0/#60 


;CHECK IF OCTAL NUMBER 


007560 


103464 




BLO 


4$ 


>NCT OCTAL - INPUT ERRO 


0C7562 


020027 


000067 


CMP 


R0/#67 




007566 


101061 




BHI 


4$ 


;N0T OCTAL - INPUT ERROR 


007570 


042700 


177770 


BIC 


JTC7/R0 


;OK - STORE DIGIT 


007574 


006300 




ASL 


RO 




0C7576 


0C630C 




ASL 


RO 




007600 


006300 




ASL 


RO 




007602 


112501 




MOVB 


(R5H/R1 


;GET SECOND DIGIT 


007604 


042701 


177600 


BIC 


JTC177/R1 


;CHECK IF AN OCTAL DIGIT 


007610 


C20127 


000060 


CMP 


Rl/#60 
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007614 


103446 








BLO 


4$ 


?NOT OCTAL - INPUT ERROR 


007616 


020127 


000067 






CMP 


Rl/#67 




007622 


101043 








BHI 


4$ 


;NOT OCTAL - INPUT ERROR 


007624 


0427C1 


17777C 






BIC 


ITC7/R1 


;0K - MASK DIGIT 


007630 


060100 








ADD 


R1/R0 


;HAKE COMPLETE TEST NUMBER 


007632 


010037 


001146 






MOV 


RO/STSTNM 


;SAVE TEST NUMBER 


CC7636 


CC63CC 








ASL 


RO 


;SET TABLE POINTER 


007640 


005760 


013356 






TST 


TAT(RO) 


JCHECK IF TEST IS IN TABLE 


007644 


003432 








BLE 


4$ 


;NOT IN TABLE/ GET NEW SELECTION 


007646 


112501 








MOVB 


(R5M/R1 


;GET CONTROL CHAR 


CC7650 


C427C1 


177600 






BIC 


JTC177/R1 


;MASK BITS 


007654 


020127 


000056 






CMP 


Rl/#56 


/CHAR = PERIOD? 


007660 


001004 








BNE 


IS 


;ND/ CONTINUE CHECK 


007662 


112737 


177777 


001153 




MOVB 


8-1/TRQNE 


;YES/ SET FLAG 


007670 


000414 








BR 


3$ 


;CONTINUE 


007672 


042701 


000040 




1$: 


BIC 


#BIT5/R1 


;MASK BIT 5 (ALLOW IWP ER 


007676 


022701 


000114 






CMP 


#'L/R1 


KHAR = L? 


00770? 


001004 








BNE 


2$ 


}HO, CONTINUE 


007704 


112737 


177777 


001154 




MOVB 


#-l/TLQOP 


;YES/ SET FLAG 


007712 


000403 








BR 


3$ 


;CCNTINUE 


007714 


C22701 


000123 




2$: 


CMP 


rs,Ri 


;CriAR = s? 


007720 


001004 








BNE 


4$ 


;NQ/ INPUT ERROP 


007722 


012706 


001100 




3$: 


MOV 


#STACK/SP 


;reset stack 


007726 


000170 


013356 






JMP 


@TAT(RO) 


;ALL CK - GO TO SELECTED TEST 


007732 


1C44C1 


00116C 




4$: 


TYPE 


/SQUES 


; INPUT ERROR 


007736 


104401 


001161 






TYPE 


/SCRLF 


/PRINT QUESTION MARK 


007742 


000674 








BR 


5$ 


;CET NEW INPUT 
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j « ** * it*********************************************************** 
.SbTTL ERRCR HANDLER ROUTINE 

>THIS ROUTINE WILL SAVE THE ERRCR NUMBER AND THE ADR OF THE ERROR CALL 
/AND GO TO REPORT ON ERROR 

;THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
} SW15 = 1 HALT ON ERROR 

; SW13 = 1 INHIBIT ERROR TYPEOUTS 

; SW10 = 1 BELL ON ERROR 



0C7744 
007752 
007760 
CC7762 
007766 
007772 
010000 
01CC06 
010014 
010016 
010022 
010C26 
010032 
010034 
010036 

010040 
010042 



01377*7 
032777 
001402 
1044C1 
011637 
162737 
117737 
032177 
001004 
004737 
104401 
0C5777 
100001 
104421 
000002 

000000 
000000 



C01146 171172 
002000 171162 

001156 
010040 

000002 010040 
000034 010042 
020C0C 171126 

010044 
001161 
171110 



JC ALL 

; ERROR 

SERRCRS MOV 
BIT 
BEQ 
TYPE 
1$: MOV 
SUB 
MOVB 
BIT 
BNE 
JSR 
TYPE 
TST 
BPL 
HOLD 
RTI 



2$: 



$ERRFC: -WORD 
$ITEMB: -WORD 



$T ST NM,@DI SPLAY 

#BIT10,(8SWR 

1$ 

/SBELL 

(SP),$ERRPC 

#2#$ERRPC 

@$ERRPC/$ITEMB 

#BIT13,§SWR 

2$ 

PC, REPORT 
,$CRLF 

eswp 

3$ 



/error = emt & n = error item number 

;display test number and error flag 
;bell on error? 
;no - skip 
; r ing bell 

;get address of error instruction 

jstrip and save the error item code 

;skip typeouts if set 

;skip typeouts 

;go to report routine 

/halt on error if set 
;skip is continue 
/dynamic halt 
;return 

;last error instruction executed 
/ item code 
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;////////////////////////////////////////////////////////////////////// 

;ERRCR REPORT ROUTINE 
I 

;ERRCR MESSAGE WILL USE THE FOLLOWING FORM: 

;TEST #XX, PC=XXXXXX, ERROR #xxx, MESSAGE »>>»»>»» 

;////////////////////////////////////////////////////////////////////// 



010044 


105737 


001173 


REPORT: 


TSTE 


STPFLG 


^TERMINAL EXIT? 


010050 


100435 






BMI 


2$ 


;NG/ EXIT 


01CC52 


010C46 






MOV 


R0/-(SP) 


;?PUSH RO ON STACK 


010054 


104401 


015044 




TYPE 


/ETSTNO 


?TVPE FIRST PART OF ERROR MESG 


010060 


013746 


001146 




MOV 


$TSTNM,-(SP) 


;;PUSH STSTNM ON STACK 


010064 


104403 






TYPOS 




;TYPE TEST NUMBER 


01CC66 


002 






.BYTE 


2 


;TW3 DIGITS MAX. 


010067 


001 






. BYTE 


1 


;TYPE LEADING ZEROS 


010070 


104401 


015054 




TYPE 


/PCMSG 


/TYPE PART OF ERROR MESG 


010074 


013746 


010040 




MOV 


$ERRPC / -(SP) 


;>PUSH SERRPC ON STACK 


C1C100 


1C44C2 






TYPOC 




/TYPE ERROR PC 


010102 


104401 


015063 




TYPE 


/ERR 


/TYPE MORE OF ERROR MESG 


010106 


013746 


010042 




MOV 


$ITEMB # -(SP) 


;;PUSH $ ITEMB ON STACK 


010112 


104403 






TYPOS 




;TYPE ERROR NUMBER 


C1C114 


CCS 






.BYTE 


3 


J3 DIGITS MAX. 


010115 


001 






.BYTE 


I 


;TYPE LEADING ZEROS 


010116 


104401 


015076 




TYPE 


/ERRS 


;typ SPACES 


010122 


013700 


010042 




MOV 


$ITEMB # R0 


JGET ERROR NUMBER 


010126 


0C63CC 






ASL 


RO 


JSET TABLE POINTER 


010130 


016037 


013554 010140 




MOV 


EMAT-2(R0) / 1$ 


?SET ERROR MESSAGE ADR 


010136 


104401 






TYPE 




;TYPE ERROR MESG 


010140 


000000 




IS: 


• WORD 







01C142 


01260C 






MOV 


(SP)+/R0 


;?PQP STACK INTO RO 


010144 


000207 




2$: 


RTS 


PC 


;return 
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.SBTTL SAVE AND RESTORE R0-R5 FQUTINES 



A* A******************************************* ***************** 

;*SAVE R0-R5 

;*call: 

;* SAVREG 

;*UPCN RETURN FROM $ SAVREG THE STACK KILL LOOK LIKE: 

;* 

J*TOP ( + 16) 

;* *2 — (+18) 
;* +4— R5 
.* +6 — R4 
>* +8— R3 

;**10 R2 

;**12 — Ri 
;**14 — RO 



010146 ssavreg: 

010146 010046 MOV 

C1C150 010146 MOV 

010152 010246 MOV 

010154 010346 MOV 

01C156 010446 MOV 

010160 010546 MOV 

010162 016646 000022 MOV 

C1C166 016646 000022 MOV 

010172 016646 000022 MOV 

010176 016646 000022 MOV 

010202 000002 RTI 



RO,-(SP) 




;?push 


RO 


ON 


STACK 


Rlr-(SP) 




;;Posh 


PI 


ON 


STACK 


R2,-(SP) 




?5PUSH 


R2 


ON 


STACK 


R3,-(SP) 




;?push 


R3 


CN 


STACK 


R4,-(SP) 




j;push 


R4 


ON 


STACK 


R5,-(SP) 




;?push 


R5 


ON 


STACK 


22(SP),- 


(SP) 


;;SAVE 


PS 


OF 


MAIN FLOW 


22(SP),- 


(SP) 


;;savf, 


PC 


OF 


MAIN FLOW 


22(SP),- 


(SP) 


;?save 


PS 


OF 


CALL 


22(SP),- 


(SP) 


;?SAVE 


PC 


OF 


CALL 



;*RESTQRE R0-R5 
;*CALL: 









;* RESREG 






010204 






SRESREG: 






010204 


012666 


000022 


MOV 


(SP)*,22(SP) 


;?RF.STORE PC OF CALL 


010210 


012666 


000022 


MQV 


(SP)+,22(SP) 


;;restore ps of call 


010214 


012666 


000022 


MOV 


(SP)+,22(SP) 


;;RF.STORE PC OF MAIN 


010220 


012666 


000022 


MOV 


(SP)*,22(SP) 


;;restore ps of main 


010224 


012605 




MOV 


(SP)+,R5 


;?FOP STACK INTO R5 


010226 


012604 




MOV 


(SP)*,R4 


?;POP STACK INTO R4 


010230 


012603 




MOV 


(SP)+,R3 


;?PQP STACK INTO R3 


010232 


012602 




MOV 


(SP)+,R2 


;;POP STACK INTO R2 


010234 


012601 




MOV 


(SPH/Rl 


;JP0P STACK INTO Rl 


010236 


012600 




MOV 


(SP)+,RO 


;?POP STACK INTO RO 


01C240 


000002 




RTI 
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************************************************* 
•SBTTL TYPE ROUTINE 

;ROUTINE TO TYPE ASC1Z MESSAGES, MESSAGE MUST TERMINATE WITH A BYTE- 
;THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
JNCTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER 









;note2: 


SFILLS 


CONTAINS THE 


NUMFER OF FILLER CHARACTERS REQUIRED- 








;note3: 


SFILLC 


CONTAINS THE 


CHARACTER TO FILL AFTER. 








; 

;call: 














; 
/ 


TYPE 


/MESADR 


;MESADR IS ADDRESS OF FIRST CHAR IN ASCIZ 


010242 


1C5737 


001173 


$TYPE : 


TSTB 


STPFLG 


;IS THERE A CONSOLE TERMINAL? 


010246 


100407 






BMI 


3$ 


;branch IF NO CONSOLE TERMINAL 


010250 


010046 




IS: 


MOV 


R0,-(SP) 


;save RO 


010252 


0176CO 


000002 




MOV 


@2(SP),R0 


;GET ADR OF ASCIZ STRING 


010256 


112046 




2$: 


MOVP 


(R0)*,-(SP) 


;PUSH CHARACTER TO BE TYPED ONTO STACK 


010260 


001005 






BNE 


4$ 


;BR IF IT ISN'T THE TERMINATOR 


010262 


0C5726 






TST 


(SP) + 


; IF TERMINATOR, POP IT OFF STACK 


010264 


012600 






MOV 


(SP)+,R0 


;restore ro 


010266 


062716 


000002 


3$: 


ADD 


#2,(SP) 


;acjust return pc 


010272 


000002 






KTI 




;RETURN 


01C274 


122716 


000200 


4$: 


CMPB 


#CRLF,(SP) 


;BRANCH IF NOT <CRLF> 


010300 


001004 






BNE 


5$ 




010302 


005726 






TST 


(SP) + 


;POP <CRXLF> E3UIV 


010304 


104401 


001161 




TYPE, 


$CRLF 


;type CR-LF 


C1C310 


000762 






BP 


2$ 


;GET NEXT CHAR 


010312 


004737 


010344 


5$: 


JSR 


PCSTYPEC 


?C0 TYPE CHAR 


010316 


123726 


001172 


6$: 


CMPB 


SFILLC, (SP)+ 


;IS IT TIME FOR FILLER CHARS? 


010322 


001355 






BNE 


2$ 


;IF NO GO GET NEXT CHAR 


010324 


013746 


001170 




MQV 


$NULL,-(SP) 


;GET # FILLER CHARS NEEDED 














; AND THE NULL CHAR 


010330 


105366 


000001 


7$: 


DECB 


1(SP) 


;D0ES A NULL NEED TO BE TYPED? 


01C334 


0C2770 






BLT 


6$ 


} BR IF NO - GO POP THE NULL OFF OF STACK 


010336 


004737 


010344 




JSR 


PCSTYPEC 


;GO TYPE NULL 


010342 


000772 






BR 


7$ 


;loop 


010344 


105777 


170534 


STYPEC: 


TSTB 


a$TPs 


>WAIT UNTIL CONSOLE PRINTER IS READY 


010350 


100375 






BPL 


STYPEC 




010352 


116677 


000002 


170526 


MOVB 


2(SP),@$TPB 


;loau char to be TYPED INTO DATA REG» 


010360 


0002C7 






RTS 


PC 


;RETURN 
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-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



;*THIS ROUTINE IS USED TO CHANCE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT- DEPENDING ON WHETHER THE 
;* NUMBER IS POSITIVE OR NEC ATI VF A SPACE OR A MINUS SIGN WILL BE TYPED 
; *BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 

;*call: 

;* MOV NUM,-(SP) ;;PUT THE BINARY NUMBER ON THE STACK 

;* TYPDS ;?G0 TO THE ROUTINE 



010362 STYPDS: 



010 362 


ni (in 

U 1 VI V 1 V 








MOV 


on - - ( \ 


• •piKu on riN ctiPK 


010 364 


10 1 46 










Rl/~( SP) 


//rubr! Fl UN oTAvR 


010366 


0102 46 








unu 


R2/-( SP) 


//rUOn iv & UN SlAvn 




U 1 U J 








MOV 




••PII^H Ol flN <?TIf*K 
//rUOti K J Un dlAl«rv 


010372 


010546 








MOV 


R5/-( SP) 


JJPUSH R5 ON STACK 


010374 




n*3nonn 

U ZU CM U 






MOV 




• • CPf or fiMlf culf f"H 4HT1 CIRU 




UIDOUj 


nAAn^n 
uuuu/u 






MOV 


iU lor f 


• jfiFT THF TNPHT NIIMRFR 


01C404 










BPL 


1$ 


IlRB TF TNPHT T <? PfK* 


010406 


005405 








NEG 


R5 


JJMAKE THE PINARY NUMBER POS. 


n i fid 1 n 




nnnAcc 
UUUU33 


Annnm 

UUvuvl 






# 1 ( SP ) 


//"fttVL inn Hjtll nwnDDn Ii&v». 


010416 


UUJvuv 






1$ : 


CLR 


RO 


JJ7FM.P THF CONSTANTS TNDjFX 


0104 20 


012703 


v X U *J i C 






MOV 




!i«?FTUP THF nilTPUT PflTNTFD 


U 1 U I iH 


1 1 27 23 


nnnndn 

UUUUtU 






MOVB 


H * / ( R3 ) + 


5 jCffT THF FTR^T f*H IP iCTFB Tfl ft Rf 1 NIT 


UlvUU 








25 • 


CLR 


R2 


//CLEAR THE BCD NUMBER 


01043 2 


ni finni 


ni n^A a 

U A V 3 v u 






MOV 




IJfiFT THF f*nN<JTINT 


010436 


1601 05 






3$: 


SUB 


R1,R5 


;?F0RM THTS BCD DIGIT 


010440 


002402 








BLT 


4$ 


z/BR IF DONE 


010442 


005202 








INC 


R2 


;jINCREASE THE BCD DIGIT BY 1 


010444 


000774 








BR 


3S 




010446 


060105 






4$: 


ADD 


R1 # R5 


/ * ADD BACK THE CONSTANT 


010450 


005702 








TST 


R2 


;;CHECK IF BCD DIGIT=0 


010452 


001002 








'* BNE 


5S 


; J FALL THROUGH IF 


010454 


1C5716 








TSTB 


(SP) 


;jSTILL DOING LEADING 0*S? 


010456 


100407 








3MI 


7$ 


;?BR IF YES 


010460 


106316 






5$: 


ASLB 


(SP) 


??MSD? 


01C462 


103003 








BCC 


6$ 


?;BR IF NO 


010464 


116663 


000001 


177777 




MOVB 


1(SP),-1(R3) 


? J YES — SET THE SIGN 


010472 


052702 


000060 




6$: 


BIS 


#'0,R2 


; JMAKE THE BCD DIGIT ASCII 


010476 


052702 


000040 




7$: 


BTS 


#' /R2 


;;make it a space if not already a digit 


010502 


110223 








MOVB 


R2,(R3)+ 


;?PUT THIS CHARACTER IN THE OUTPUT BUFFER 


010504 


005720 








TST 


(R0) + 


;;just incrementing 


010506 


020027 


000010 






CMP 


R0,#10 


;?CHECK THE TABLE INDEX 


010512 


0C2746 








BLT 


2S 


;;GO DO THE NEXT DIGIT 


010514 


003002 








BGT 


8$ 


;?go TO EXIT 


010516 


010502 








MOV 


R5/R2 


; /GET THE LSD 


010520 


000764 








BR 


6$ 


;jG0 CHANGE TO ASCII 


010522 


105726 






8$: 


TSTB 


(SP) + 


;;KAS THE LSD THE FIRST NON-ZERO? 


010524 


100003 








BPL 


9$ 


;?br IF NO 


010526 


116663 


177777 


177776 




MOVB 


-1(SP),-2(R3) 


; J YES — SET THE SIGN FOR TYPING 


010534 


105013 






9$: 


CLRB 


(R3) 


;;SET THE TERMINATOR 


010536 


012605 








MOV 


(SP)+,R5 


;?FQP STACK INTO P5 


010540 


012603 








MOV 


(SP)+,R3 


;?P0P STACK INTO R3 


010542 


012602 








MOV 


(SP)+/R2 


;?P0P STACK INTO R2 



MAINDEC-1 1-DZLAE-B MACY11 27(1006) 01-MAR-77 14:45 PAGE 69 

DZLAEB.P11 28-FEB-77 15:08 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



010544 


0126C1 






MOV 


(SP)4,R1 


;;POP STACK INTO PI 


010546 


012600 






MOV 


(SP)*,R0 


;?P0P STACK INTO R0 


010550 


104401 


010576 




TYPE 


,$D9LK 


;?N0W TYPE THE NUMBER 


010554 


016666 


000002 


000004 


MOV 


2(SP),4(SP) 


?;ADJUST THE STACK 


010562 


012616 






MOV 


(SP)*,(SP) 




010564 


000002 






RTI 




} yRETURN TO USER 


010566 


023420 




SDTBL: 


10000. 






01C570 


0C175C 






1000. 






010572 


000144 






100. 






010574 


000012 






10. 






010576 


000004 




SUBLK: 


iBLKW 


4 
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. SBTTL BINARY TO OCTAL (ASCII ) AND TYPE 

^j*************************************************************** 

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*QCTAL (ASCII) NUMBER AND TYPE IT. 

?*STYPOS iENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

/ *CALL * 

;* * MOV NUM,-(SP) NUMBER TO BE TYPED 

;* TYPOS ;;call FOR TYPEOUT 

;* * BYTE N ;;N = 1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

;* .BYTE M ;?M=1 OR 

;* ;;1=type leading zeros 

;* ;;o=suppress leading zeros 

• * 

;*$TYPON — -ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
>*$TYPQS OR $TYPOC 
J*CALL : 

;* MOV NUM,-(SP) ;;NUMBER TO BE TYPED 

;* TYPON >;CALL FOP TYPEOUT 

t * 

;*$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

;*call: 











;* 


MOV 


NUM / -(SP) 


;;num°er to be typed 












TYPOC 




;;CALL FOR TYPEOUT 


010606 


017646 


000000 




$TYPOS: 


MOV 


@(SP),-(SP) 


;;PICKUP THE MODE 


010612 


116637 


000001 


011031 




MOVB 


1(SP),$0FILL 


;;load zero fill switch 


010620 


112637 


011033 






MOVB 


(SP)*,$OMODE+l 


;;number of digits to type 


010624 


062716 


000002 






ADD 


#2,(SP) 


;;ADJUST RETURN ADDRESS 


010630 


000406 








BR 


STYPON 




010632 


112737 


000001 


011031 


$typoc: 


MOVB 


#1,$0FILL 


;;SET THE ZERO FILL SWITCH 


010640 


112737 


000006 


011033 




MOVB 


#6,$GMODE+l 


;;SET FOR SIX(6) DIGITS 


01C646 


112737 


000005 


011030 


$TYPON: 


MOVB 


#5,$0CNT 


;?SET THE ITERATION COUNT 


010654 


010346 








MOV 


R3,-(SP) 


;?SAVE R3 


010656 


010446 








MOV 


R4,-(SP) 


>;SAVE R4 


010660 


010546 








MOV 


R5,-(SP) 


;;save R5 


010662 


113704 


011033 






MOVB 


$0N0DE+1,R4 


} } GET THE NUMBER OF DIGITS TO TYPE 


010666 


005404 








NEG 


R4 




010670 


062704 


000006 






add 


#6/R4 


>>SUBTRACT IT FOR MAX. ALLOWED 


01C674 


110437 


011032 






MOVB 


R4/S0MQDE 


;?SAVE IT FOR USE 


010700 


113704 


011031 






MOVB 


$0FILL,R4 


} ?GET THE ZERO FILL SWITCH 


010704 


016605 


000012 






MOV 


12(SP)/R5 


;;PICKUP THE INPUT NUMBER 


010710 


005003 








CLR 


R3 


;;CLEAR THE OUTPUT WORD 


01C712 


0C61C5 






IS: 


ROL 


R5 


; ; ROTATE MSB INTO "C" 


010714 


000404 








BR 


3$ 


;;go do msb 


010716 


006105 






2$: 


ROL 


R5 


;;FORM THIS DIGIT 


010720 


006105 








ROL 


R5 




01C722 


006105 








ROL 


R5 




010724 


010503 








MOV 


R5,P3 




010726 


006103 






3$: 


ROL 


R3 


; ?GET LSB OF THIS DIGIT 


010730 


105337 


011032 






DECB 


$OMODE 


;?TYPE THIS DIGIT? 


01C734 


ICOOlf 








BPL 


7$ 


;;br IF NO 


010736 


042703 


177770 






BIC 


#177770, R3 


/ s GET RID OF JUNK 


010742 


001002 








BNE 


4$ 


;?TEST FOR 


010744 


005704 








TST 


R4 


;?SUPPRESS THIS 0? 


010746 


001403 








BEQ 


5$ 


;?BR IF YES 
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Pll 


28-FEB-77 


15:08 


BINARY 


TO OCTAL 


(ASCII) AND 


TYPE 


010750 


005204 




4$: 


INC 


R4 


;?DON'T SUPPRESS ANYMORE 0"S 


010752 


052703 


000060 




BIS 


#'0,R3 


;;MAKE THIS DIGIT ASCII 


010756 


052703 


000040 


5$: 


BIS 


#' ,R3 


? /MAKE ASCII IF NOT ALREADY 


010762 


110337 


011026 




MOVB 


R3,8$ 


;;SAVE FOR TYPING 


010766 


104401 


011026 




TYPE 


,8$ 


;?GO TYPE THIS DIGIT 


010772 


105337 


011030 


7$: 


DECB 


SOCNT 


;;COUNT BY 1 


010776 


003347 






BGT 


2$ 


;?BR IF MORE TO DO 


011000 


002402 






BLT 


6$ 


;;BR IF DONE 


011002 


005204 






INC 


R4 


; JINSURE LAST DIGIT ISN'T A BLANK 


011004 


000744 






BP 


2$ 


??GO DO THE LAST DIGIT 


011006 


012605 




6$: 


MOV 


(SP)+,R5 


;?RESTOPE R5 


011010 


012604 






MOV 


(SP)+,R4 


; JRESTORE R4 


011C12 


012603 






MOV 


(SP)*,R3 


;?PESTORE R3 


011014 


016666 


000002 


000004 


MOV 


2(SP),4(SP) 


;?SET THE STACK FOR RETURNING 


011022 


012616 






MOV 


(SP)+,(SP) 




011C24 


0C0002 






PTI 




;;retorn 


011026 


000 




8$: 


4 BYTE 





; ; STORAGE FOR ASCII DIGIT 


011027 


000 






• BYTE 





;;terminator for type routine 


011030 


000 




$OCNT: 


.iBYTE 





;?OCTAL DIGIT COUNTER 


011C31 


COC 




50FILL" 


* BYTE 





;;ZERO FILL SWITCH 


011032 


000000 




SOMODE! 


.WORD 





; J NUMBER OF DIGITS TO TYPE 



011C34 0C4737 011316 SLCAC: JSR PC/RSTADR ; RESTORE ADDRESSING TO FIRST PRINTEP 

011040 000137 000000 LDPTR: JMP ;SWITCH TO EITHER PARALLEL OR 

;SERIAL SINGLE-CHARACTER LOADER. 

;THTS SWITCH IS SET UP BY THE PROGRAM 

;AT STARTUP PER THE CONTENTS OF SERSW WORD. 
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• SBTTL ROUTINES TO LOAD CHARACTERS TO LA180 



;////////////////////////////////////////////////////////////////////// 

JROUTINE TO LOAD SINGLE CHARACTERS TO LA180 PRINTER 
;OSING THE STANDARD PARALLEL INTERFACE 
>CALL : MOV CHAR/RO ;PUT CHAR IN RO 

I LOAD 

; 

;IF PRINTER DOES NOT GO READY WITHIN 9 TO 32 SECONDS 
/ (DEPENDING ON CPU AND MEMORY TYPE) THE DIAGNOSTIC HILL 
> INDICATE AN ERROR - ERROR #24 - NOT READY. 

',111 iiiiiliiiiiitiiiniiiiiiiiii muiiiiiiiiiiiiiiiinimiiiiiiiinn 



011044 


104420 




pload: 


CHECK 




/CHECK FOR CONTROL 


011046 


012737 


000040 


011140 


MOV 


#40,6$ 


;SET DELAY LOOP COUNT 


011C54 


0C5777 


170C34 




TST 


8LPS 


/CHECK FOR ERROR CONDX 


011060 


100002 






BPL 


IS 


/PRINCH IF OK 


011062 


104024 






ERROR 


24 


/PRINTER ERROR BEFORE LOAD 


011064 


000423 






BR 


4$ 


/exit 


011C66 


0C5C37 


011136 


IS: 


CLR 


5$ 


/CLEAP DELAY COUNT 


011072 


005237 


011136 


2S: 


INC 


5$ 


/INC COUNT 


011076 


001005 






BNE 


3$ 


/COONTINUE 


011100 


005337 


011140 




DEC 


6$ 


/DEC DELAY LOOP COUNT 


011104 


001370 






BNE 


IS 


>WAIT IF NOT READY 


011106 


104025 






ERROR 


25 


>ERROR, PRINTER NOT READY 


011110 


000411 






BR 


4$ 


;exit 


011112 


105777 


167776 


3$: 


TSTB 


@LPS 


/CHECK FOR PRINTER READY 


011116 


1C0365 






BPL 


2$ 


/WAIT FOR READY 


011120 


110077 


167772 




MOVB 


RO/PLPB 


/LOAD CHAR 


011124 


005777 


167764 




TST 


@LPS 


/TEST FOR ERROR CONDX AGAIN 


011130 


100001 






BPL 


4$ 


;BRANCH IF OK 


011132 


1C4C26 






ERROR 


26 


;PPINTER ERPOP AFTER LOAD 


011134 


000402 




4$: 


BR 


NXTADR 


/DOES ANOTHER PRINTER REQUIRE 


011136 


000000 




5$: 


*WORD 





;DELAY COUNTER 


011140 


00004C 




6$: 


* WORD 


32. 


/delay loop counter 



011142 


005337 


001132 




NXTADR: 


DEC 


LPCTR 


; DECREMENT LINE PRINTER COUNTER 


011146 


003416 








BLE 


10$ 


/BR IF COUNT IS ZERO OR LESS (TO EXIT) 


011150 


062737 


000010 


001110 




ADD 


#10,LPKS 


;ADDRESS NEXT CONTIGUOUS LINE PRINTER 


011156 


062737 


000010 


001112 




ADD 


#10,LPKB 




011164 


062737 


000010 


001114 




ADD 


#10, LPS 




011172 


062737 


000010 


001116 




ADD 


#10,LPB 




011200 


000177 


177636 






JMP 


(8LDPTR + 2 


/GO LOAD SAME CHARACTER TO NEXT PRINTER 
/USING SAME LOADER.! 


011204 


000002 






10$: 


RTI 




>RETURN, SINGLE CHARACTER LOAD IS 



COMPLETE (TO ALL PRINTERS). 
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;////////////////////////////////////////////////////////////////////// 

/ROUTINE TO LOAD SINGLE CHARACTERS TO THE LA180 PRINTER 
;USING THE SERIAL INTERFACE. 

/CALL : MOV CHAR,R0 ;PUT CHAR IN RO 

/ LOAD 

>////////////////////////////////////////////////////////////////////// 



011206 


105777 


167676 




SLQAD: 


TSTB 


@LPKS 


;CHECK FOR PRINT KBD INPUT 


011212 


100C31 








BPL 


2S 


J BR ANCH IF NONE 


011214 


017737 


167672 


011314 




MOV 


PLPKB,10$ 


/READ PRINTER KEYBOARD CHARACTER 


011222 


042737 


177600 


011314 




BIC 


#177600,10$ 


;STRIP EXCESS BITS 


011230 


023727 


011314 


000023 




CMP 


10$, #23 


/IS CHARACTER XOFF? 


011236 


0C1017 








BNE 


2$ 


/NO, SO BRANCH 


011240 


104420 






3$: 


CHECK 




;YES, CHECK FOR OPERATOR INTERVENTION 


011242 


105777 


167642 






TSTB 


8LPKS 


/CKECK FOR MORE PRINTER KBD INPUT 


011246 


100374 








BPL 


3$ 


/none, wait for expected xon 


011250 


017737 


167636 


011314 




MOV 


@LPKB,10$ 


/read printer keyboard character 


011256 


042737 


177600 


011314 




BIC 


#177600,10$ 


;STRIP EXCESS BITS 


011264 


023727 


011314 


000021 




CMP 


10$, #21 


>TS CHARACTER XON? 


011272 


001362 








ENE 


3$ 


/NO, WAIT SOME MORE. 


011274 


000404 








BR 


4$ 


;YES, GO DIRECTLY TO LOAD A CHARACTER 


011276 


104420 






2$: 


CHECK 




;CHECK FOR OPERATOR INTERVENTION 


011300 


105777 


167610 






TSTB 


@LPS 


;IS PRINTER READY? 


011304 


100340 








BPL 


SLOAD 


;NO, START CHECKS OVER 


011306 


110077 


167604 




4$: 


MOVB 


R0,0LPB 


/YES, LOAD CHARACTER 


011312 


000713 








BR 


NXTADR 


;GO LOAD SAME CHARACTER TO NEXT PRINTER 
















/USING SAME LOADER* 


011114 


000000 






10$: 


. WORD 





/LA180 KEYBOARD CHARACTER STORAGE. 



011316 


013737 


001130 


oom f o 


RSTADR: MOV 


ACTFST,LPKS 


/set 


PRINTER 


KBD STATUS REG ADDRESS 


011324 


013737 


001110 


001112 


MOV 


LPKS,LPKB 








011332 


062737 


000002 


001112 


ADD 


#2,LPKB 


/SET 


PRINTER 


KBD BUFFER ADDRESS 


011340 


013737 


00111? 


C01114 


MOV 


LPKB,LPS 








011346 


062737 


000002 


001114 


ADD 


#2, LPS 


/set 


PRINTER 


STATUS REG ADDRESS 


011354 


013737 


001114 


001116 


MOV 


LPS,LPB 








011362 


062737 


000002 


001116 


ADD 


#2,LPB 


;set 


PRINTER 


BUFFEK ADDRESS 


011370 


013137 


00112/ 


001132 


MOV 


NUMLP, LPCTR 


;PUT 


# OF LP'S INTO A COUNTER. 


011376 


000207 






RTS 


PC 


/RETURN 
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;////////////////////////////////////////////////////////////////////// 

;ROUTINE TO LOAD MULTIPLE CHARACTERS (NOT ASCIZ/ASCII STRINGS) 
/WILL LOAD CHAR ONCE IF COUNT = 
;PUT CHARACTER COUNT IN Rl (POSITIVE) 
;PUT ASCII CHARACTER IN RO 
;CALL: MLQAD 

-,i 11 1 1 11 1 1 1 1 in 1 1 1 11 11 n n n 1 1 1 1 1 1 n 1 1 1 1 n im n I m 1 1 II in 1 1 1 in in m 



011400 
011402 
011404 
011406 



104415 
005301 
003375 
OC0002 



SMLOAD: LOAD 
DEC 
5GT 
RTI 



Rl 

SMLOAD 



;load CHAR 
;DEC COUNT 

;finish load 
;return 



;////////////////////////////////////////////////////////////////////// 

;RCUTINE TO LOAD CONVERTED NUMBERS AND SUPPRESS LEADING ZEROS 
;IF ALL DIGITS ARE ZERO, ROUTINF WILL PRINT A SINGLE ZERO 

/enter with address of asciz string on stack 
>call: cnload 

-,l III III 1 1 1 III 1 1 II II I III II II 1 1 1 ill II I II I II I II I II II III I Hill I II III II l ill 



011410 






$cnld: 








011410 


010046 






MOV 


R0/-CSP) 


;?PUSH RO ON STACK 


011412 


010146 






MOV 


R1,-(SP) 


;?PUSH Rl ON STACK 


011414 


010246 






MOV 


R2,-(SP) 


;;PUSH R2 ON STACK 


011416 


0C5002 






CLR 


R2 




011420 


016601 


000012 




MOV 


12(SP),R1 


;get ADR 


011424 


112100 




1$: 


MOVB 


(RD + /R0 


;GET CHAR 


011426 


001410 






BEQ 


3$ 


;RETURN WHEN DONE 


011430 


0C5702 






TST 


R2 


JDONE LEADING ZEROS? 


011432 


001004 






B*»E 


2$ 


;yes, load char 


011434 


020027 


000060 




N CMP 


R0,#60 


;no, check this char 


011440 


001771 






BEG 


IS 


;SKIP IF ZERO 


C11442 


005202 






INC 


R2 


;SET FLAG IF NON-ZERO 


011444 


104415 




2$: 


LOAD 




hcad CPAR 


011446 


000766 






ER 


IS 


;CONTINUE 


011450 


005702 




3$: 


TST 


R2 


;all chars ZERO? 


011452 


001003 






BNE 


4S 


;nq, EXIT 


011454 


012700 


000060 




MOV 


#60, RO 


JYES, LOAD ZERO 


011460 


104415 






LOAD 






011462 






4$: 








011462 


012602 






MOV 


(SP)+,R2 


;?POP STACK INTO R2 


011464 


012601 






MOV 


(SP)+,R1 


;?POP STACK INTO Rl 


011466 


012600 






MOV 


(SP)+,R0 


;;POP STACK INTO RO 


011470 


016666 


00C002 


000004 


MOV 


2(SP),4(SP) 


?ADJUST STACK 


011476 


012616 






MOV 


(SP)*,(SP) 




011500 


000002 






RTI 




JRETURN 
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;////////////////////////////////////////////////////////////////////// 

;ROUTINE TO PRINT ASCIZ STRINGS ON LA180 PRINTER 
; STRING MUST BE TERMINATED BY NULL BYTE 
;CALL: PRINT 
; MESADR 

;////////////////////////////////////////////////////////////////////// 

011502 SPRINT: 



011502 


010046 






MOV 


R0,-(SP) 


;;piish ro on stacf 


011504 


010146 






MOV 


R1,-(SP) 


;jPUSH Rl ON STACK 


011506 


0176C! 


G00004 




MOV 


@4(SP),R1 


;GET ADDRESS OF ASCIZ 


011512 


112100 




IS: 


MOVB 


(R1)+,R0 


;get char 


011514 


001407 






BEQ 


2S 


JBRANCH IF TERMINATOR 


011516 


120027 


000200 




CMPB 


R0/#CRLF 


;CHECK IF CPLF CODE 


011522 


001002 






BNE 


3$ 


;branch IF NOT 


011524 


012700 


000012 




MOV 


#LF,R0 


;YES, DO LF ONLY 


011530 


104415 




3$: 


LOAD 




/LOAD CHAR 


011532 


0C0767 






BP 


1$ 


JGET NEXT CHAR 


011534 






2$: 








011534 


012601 






MOV 


(SP)*,R1 


;?POP STACK INTO Rl 


011536 


012600 






MOV 


(SP)+,R0 


>;POP STACK INTO RO 


011540 


062716 


000002 




ADD 


#2,(SP) 


;ADJUST RETURN PC 


011544 


000002 






RTI 




;return 
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>////////////////////////////////////////////////////////////////////// 

. sdttl print test header 

;the numeer of columns will alsc be printed for test 25 only 
;call: prthdr 

;////////////////////////////////////////////////////////////////////// 



011546 








SPRHDR: 










011546 


005046 








CLR 


-<SP) 


;;PUT NEW PS ON STACK 




01 1550 


012746 


011556 






MOV 


#64$, -(SP) 


; ; PUT NEW PC ON STACK 




011554 


000002 








RTI 




?;POP NEW PC AND PS 




011556 








64$: 










011556 


012700 


000177 






MCV 


#177, RO 


>SET RUBOUT CHAR 




C11562 


1C4415 








LOAD 




JCLEAR LA180 CHAR BUFFER 




011564 


023737 


001146 


011660 




CMP 


STSTNM, SVTST 


KHECK IF PRINTED THIS # 


LAST 


011572 


001427 








BEQ 


3$ 


JYES, PRINT BLANK LINE 


& EXIT 


011574 


013737 


001146 


011660 




MOV 


STSTNM, SVTST 


;no, store new a 




011602 


104414 


015011 






PRINT 


,TSTNO 


>LOAD TEST # MESG 




011606 


013746 


001146 






MOV 


STSTNM, -(SP) 


;;PUSH STSTNM ON STACK 




011612 


004737 


013024 






JSR 


PCSSB20 


;CONVERT # 




011616 


1C4417 








CNLOAD 




JLOAD NUMBER 




011620 


104414 


001162 






PRINT 


,SLF 


JPRINT LINE 




011624 


023727 


001146 


000025 




CMP 


STSTNM, #25 


;IS THIS TEST 25? 




011632 


001007 








BNE 


3$ 


INC, SKIP COLUMN MESG 




011634 


013746 


001150 






MOV 


WIDTH, -( SP) 


;PUT # COLUMNS ON STACK 




011640 


004737 


012650 






JSR 


PCSSB2D 


;CONVERT t 




011644 


104417 








CNLOAD 




;LCAD NUMBER 




011646 


1C4414 


015031 






PRINT 


,CULMN 


;LOAD CLOUMN MESG 




011652 


104414 


001162 




3S: 


PRINT 


,SLF 


} PLANK LINE 




011656 


000002 






4$: 


RTI 




;return 




011660 


OOOOCO 






svtst: 


.WORD 


C 


;SAVE TEST NUMBER 
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-SBTTL TTY INPUT ROUTINE 



^. *************************************************************** 

■ENAEL LSB 

. DSABL LSB 



•j*************************************************************** 

;*this routine will inp"t a single character from the tty 
;*call: 

;* RDCHR ;?INPUT A SINGLE CHARACTER FROM THE TTY 

;* RETURN HERE >;CHAPACTER IS ON THE STACK 

?* ;?WITH PARITY BIT STRIPPED OFF 



011662 


011646 






SRDCHR: 


MOV 


(SP),-(SP) 


;;push DOWN THE PC 


011664 


016666 


000004 


000002 




MCV 


4(SP),2(SP) 


;?SAVE THE PS 


C1H72 


1C5777 


1672C2 




1$: 


TSTB 


3STKS 


;?WAIT FOR 


011676 


100375 








BPL 


IS 


;?A CHARACTER 


011700 


117766 


167176 


000004 




MOVB 


?$TKB,4(SP) 


;?RFAO THE TTY 


011706 


042766 


177600 


000004 




BIC 


#*C<177>,4(SP) 


HGET RID OF JUNK IF ANY 


011714 


C26627 


CGCCC4 


000C23 




CMP 


4(SP),#23 


?JIS IT A CONTROL-S? 


011722 


001013 








BNE 


3$ 


MBRANCH IF NO 


011724 


105777 


167150 




2$: 


TSTB 


9STKS 


;;KAIT FOR A CHARACTER 


011730 


1C0375 








BPL 


2$ 


;?LQOP UNTIL ITS THERE 


011732 


117746 


167144 






MOVP 


9$TKB,-(SP> 


; J GET CHARACTER 


011736 


042716 


177600 






BIC 


#*C177,(SP) 


;;make it 7-bit ascii 


011742 


022627 


000021 






CMP 


(SP)+,#21 


;?IS IT A CONTROL-G? 


011746 


0C1366 








BNE 


2$ 


;?1F NOT DISCARD IT 


011750 


000750 








BR 


1$ 


;;yes, RESUME 


011752 


026627 


000004 


000140 


3$: 


CMP 


4(SP),#140 


;;is IT UPPER CASE? 


011760 


002407 








BLT 


4$ 


; ;BRANCH IF YES 


011762 


026627 


000004 


000175 




CMP 


4(SP),#175 


;?IS IT A SPECIAL CHAR? 


011770 


003003 






BGT 


4$ 


} /BRANCH IF YES 


011772 


042766 


000040 


000004 




BIC 


#40,4(SP) 


;?MAKE IT UPPER CASE 


01K00 


OC0002 






4$: 


RTI 




;jGO BACK TO USER 










« j **************************** 


*********************************** 










;*this 


ROUTINE 


WILL INPUT A STRING FROM THE TTY 










;*call: 
















;* 


RDLIN 




??INPUT A STRING FROM THE TTY 












RETURN 


HERE 


} } ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 










.* 






} ;TERMINATOR WILL BE A BYTE OF ALL O'S 


012002 


010346 






SRDLIN: 


MOV 


R3,-(SP) 


?JSAVE P3 


012004 


005046 








CLR 


-(SP) 


;;CLEAR THE RUBOUT KEY 


012006 


012703 


012236 




1$: 


MOV 


#$TTYIN,R3 


;;GET ADDRESS 


012012 


022703 


012242 




2$: 


CMP 


#$TTYIN+4,R3 


} } BUFFER FULL? 


012016 


101456 








BLOS 


4S 


;;BR IF YES 


012020 


1C44CC 








RDCHP 




;>G0 READ ONE CHARACTER FROM THE TTY 


012022 


112613 








MOVB 


(SP)+,(R3) 


>>G5T CHARACTER 


012024 


122713 


000177 




10$: 


CMPB 


#177, (R3) 


;;is IT A RUBOUT 


012030 


001022 








BNE 


■>$ 


;?BR IF NO 


012032 


0C5716 








TST 


(SP) 


>US THIS THE FIRST RUBOUT? 


012034 


001007 








BNE 


6$ 


) 5 BR IF NO 


012036 


112737 


00013^ 


012234 




MOVB 


#'\,9$ 


;;typf a back slash 
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012C44 


1C4401 


012234 






TYPE 


,9$ 




012050 


012716 


177777 






MOV 


#-l,(SP) 


;?SET THE RUBOUT KEY 


012054 


005303 






6$: 


DEC 


R3 


;;backup by one 


012056 


020327 


012236 






CMP 


R3,#$TTYIN 


;;stack empty? 


012C62 


1C3434 








BLO 


4$ 


;?ER IF YES 


012064 


111337 


012234 






MOVP 


(R3),9$ 


;;SETUP TO TYPEOUT THE DELETED CHAR. 


012070 


104401 


012234 






TYPE 


,9$ 


;;go type 


01 2C74 


0C0746 








BR 


2$ 


;?G0 READ ANOTHER CHAR. 


012076 


005716 






b$: 


TST 


(SP) 


;;rubout key set? 


012100 


001406 








BEQ 


7$ 


;;br if no 


012102 


112737 


000134 


012234 




MOVB 


#'\,9$ 


;;type a back slash 


CI H10 


1C4401 


012234 






TYPE 


/9$ 




012114 


005016 








CLR 


(SP) 


; KLEAR THE RUBOUT KEY 


012116 


122713 


000025 




7$: 


CMPB 


#25, (R3) 


;;IS CHARACTER A CTRL U? 


012122 


001003 








BNE 


8$ 


;?BR IF no 


012124 


104401 


012242 






TYPE 


, SCNTLU 


;;TYPE A CONTROL "U" 


012130 


000726 








BR 


IS 


;;go START OVER 


012132 


122713 


000022 




8$: 


CMPB 


#22, (R3) 


;HS CHARACTER A " *R"? 


C12136 


0C1011 








BNE 


3$ 


;;BPANCH IF no 


012140 


105013 








CLRB 


(R3) 


;;CLEAR THE CHARACTER 


012142 


104401 


001161 






TYPE 


,$CRLF 


;;type a "Cr«» & »lf" 


012146 


104401 


012236 






TYPE 


,$TTYIN 


;;typf the input string 


012152 


000717 








BR 


2$ 


; ?gc pickup another chacter 


012154 


104401 


001160 




4$: 


TYPE 


,$QUES 


;;type a -?* 


012160 


000712 








BR 


1$ 


; ; CLE AR THE BUFFER AND LOOP 


012162 


111337 


012234 




3$: 


MOVE 


(R3),9$ 


;;echo the character 


012166 


104401 


012234 






TYPE 


/9$ 




012172 


122723 


000015 






CMPB 


#15, (R3)* 


;;CHECK FOR RETURN 


012176 


001305 








BNE 


2$ 


;;loop if not return 


01220C 


1C50«3 


177777 






CLRB 


-KR2) 


; ?CLEAR RETURN (THE 15) 


012204 


104401 


001162 






TYPE 


,SLF 


; JTYPE A LINE FEED 


012210 


005726 








TST 


(SP) + 


; ; CLE A N RUBOUT KEY FROM THE STACK 


012212 


0126C3 








MOV 


(SP)*,R3 


j;restope R3 


012214 


011646 








MOV 


(SP),-(SP) 


??ADJUST THE STACK AND PUT ADDRESS OF 


012216 


016666 


000004 


000002 




MOV 


4(SP),2(SP) 


;; FIRST ASCII CHARACTER ON IT 


012224 


012766 


012236 


C0C004 




.MOV 


#$TTYIN,4(SP) 


012232 


000002 








RT1 




} /RETURN 


012234 


000 






9$: 


.BYTE 





; ; STORAGE FOR ASCII CHAR. TO TYPE 


012235 


000 








* BYTE 





J /TERMINATOR 


012236 


OC0004 






$TTYIN : 


. BLKB 


4 


; ? RESERVE 4 BYTES FOR TTY INPUT 


012242 


052536 


005015 


000 


SCNTLU: 


.ASCIZ 


/*U/<15><12> 


;?CONTROL "U" 


012247 


136 


006507 


000012 


SCNTLG: 


.ASCIZ 


/~G/<15><12> 


;;control "G" 


012254 


005015 


053523 


C20122 


SMSWR: 


.ASCIZ 


<15><12>/SWR = 


/ 


012262 


020075 


000 












012265 


040 


047040 


053505 


SMNEW : 


-ASCIZ 


/ NEW = / 




012272 


03b440 


000040 
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. SBTTL READ A DECIMAL NUMBER FFCV THE TTY 

*************************************************************** 

;*THIS PQUTINE KILL READ A DEC IK AL (ASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
;*ARE READ A »»?•• FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
;*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
;*USEP TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
;*P0SIT1VE 32767 TO NEGATIVE 32768. 
;*CALL: 









;* 


RDDEC 




;?PEAD A DECIMAL NUMBER 








/ * 
/ 


RETURN 


HERE 


J / NUMBER IS ON TOP OF THE STACK 


CI 2276 


C11C46 




SRLDEC: 


MOV 


(SP),-(SP) 


; JPROVIDE SPACE FOR 


012300 


016666 


000004 


000002 


MOV 


4(SP),2(SP) 


;;the input number 


012306 


010046 






MOV 


RO,-(SP) 


;;PUSH RO ON STACK 


012310 


010146 






MOV 


R1,-(SP) 


;>PUSH Rl CN STACK 


01 2312 


010246 






MOV 


R2,-(SP) 


;;PUSH P2 ON STACK 


012314 


104407 




1$: 


RDLIN 




;;read AN ASCIZ LINE 


012316 


012600 






MOV 


(SP)*,RO 


; ? ADDRESS OF 1ST CHAR. 


012320 


010C37 


012444 




MOV 


R0,6S 


??SAVE INCASE OF BAD INPUT 


012324 


005046 






CLR 


-(SP) 


;?CLEAR DATA WORD 


012326 


005002 






CLR 


R2 


;jSIGN SET POSITIVE 


01 2330 


122710 


CCGC55 




CMPB 


«'-#(R0) 


;;SEE IF A MINUS SIGN WAS TYPED 


012334 


001001 






BNE 


2$ 


>?BR IF NC MINUS SIGN 


012336 


112002 






MOVB 


(R0)*/P2 


;;SAVF FOP LATER USE 


012340 


112001 




2$: 


MCVP 


(R0)+,R1 


;?PICKUP THTS CHARACTER 


Gi;?42 


0C1424 






BEQ 


3$ 


;;GET OUT IF 7E<?Q 


012344 


122701 


000060 




CMPP 


ro,Ri 


J /MAKE SURE THIS CHARACTER 


012350 


003032 






BGT 


5$ 


;;1S A DIGIT BETWEEN & 9 


012352 


122701 


000071 




CMPB 


#'9,R1 




015356 


0C2427 






BLT 


5$ 




012360 


032716 


170000 




BIT 


#*C7777,(SP) 


; ?DON'T LET NUMBER GET TO BIG 


012364 


001024 






BNE 


5$ 


;>BR IF NUMBER WOULD OVERFLOW 


012366 


0C6316 






ASL 


(SP) 


;;*2 


012370 


011646 






MOV 


(SP),-(SP) 


;;SAVE FOR LATER 


012372 


006316 






ASL 


(SP) 


;;*4 


012374 


006316 






ASL 


(SP) 


;>*a. 


012376 


062616 






ADD 


(SP)+,(SP) 


;?*io. 


012400 


102416 






BVS 


5$ 


;;CVERFLOW ISN'T ALLOWED 


012402 


162701 


000060 




SUB 


#'0,R1 


;;STHIP AWAY THE ASCII JUNK 


012406 


060116 






ADD 


R1/(SP) 


;;add in this digit 


012410 


102412 






BVS 


5$ 


;;CVERFLOW ISN'T ALLOWED 


012412 


000752 






BR 


2$ 


;?loop 


012414 


005702 




3$: 


TST 


R2 


;>CHECK IF NUMBER IS NEG 


C12416 


OC1401 




BEQ 


4$ 


;?BR IF NO 


012420 


005416 






NEG 


(SP) 


} } YES — NEGATE THE NUMPER 


012422 


012666 


000012 


4$: 


MOV 


(SP)+,12(SP) 


;;SAVE THE RESULT 


012426 


012602 




MOV 


(SP)*,R2 


;?PQP STACK INTO R2 


012430 


012601 






MOV 


(SP)4,R1 


;;pop STACK INTO Rl 


012432 


012600 






MOV 


(SP)+,RO 


;?POP STACK INTO RO 


012434 


000002 






RTI 




;?RETURN 


012436 


0057 26 




i$: 


TST 


(SP) * 


? /CLEAN PARTIAL NUMBER FROM STACK 


012440 


105010 




CLRB 


(RO) 


;;SET A TERMINATOR 
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012442 104401 

012444 000000 

012446 104401 001160 

012452 000720 



TYPE 

*WCFD 

TYPE ,$QUES 

BR 1$ 



;>TYPE THE INPUT OP TO PAD CHAR; 
;;POINTER GOES HERE 
}}"?" "CR" S««LF» 
IJTRY AGAIN 
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•SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 



|*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMRER TO AN UNSIGNED 
; *DEC IMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST 8E 
;*P0SITIVE. 
;*CALL 



MOV 
JSR 

RETURN 



#PNTfi,-(SP) 
PC/0#$DB2D 



;?POINTER TO LOW WORD OF BINARY NUMBER 



;?THE FIRST ADDRESS OF ASCIZ 
;;IS ON THE STACK 



012454 
012456 
012462 
012466 
012472 
012474 
012476 
012504 
012510 
012514 
012516 
012520 
012522 
012524 
012526 
012530 
012532 
012534 
012536 
012540 
012542 
012546 
012550 
012552 
012554 
012556 
012560 
012562 
012564 
012566 
012570 
012572 
012574 
012576 
012600 
012602 
012604 
012606 
012610 
012612 
012614 
012616 
012620 



104411 
016602 
012700 
010066 
012201 
012202 
012737 
012704 
0127 0* 
005003 
161401 
005602 
261502 
002402 
005203 
000772 
062401 
00550? 
062402 
022525 
C527C? 
110320 
005327 
000000 
001357 
105020 
104412 
000207 
145000 
03563? 
160400 
002765 
1132CC 
000230 
041100 
000017 
10324C 
000001 
02342C 
000000 
0C175C 
000000 
000144 



000002 
012634 
000002 



000012 
012564 
012566 



50B2C: 



1$: 
2$: 



STNPfeP: 



SAVREG 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLP 

SUB 

SBC 

SUE 

PLT 

INC 

BR 

ADD 

ADC 

ADD 

CMP 

BIS 

MOVE 

DEC 

.WORD 

BNE 

CLR P 

RESREG 

RTS 

145C00 

35632 

160400 

2765 

113200 

230 

041100 
17 

103240 
1 

23420 


175C 


144 



2(SP),R2 

#$DECVL,R0 

R0,2(SP) 

(R2)*,R1 

(R2)*,R2 

#10. ,4$ 

#$TNPWR/R4 

#$TNPWR+2,R5 

R3 

(R4),R1 

R2 

(R5),R2 

3$ 
R3 
2$ 

(P4)+,R1 

R2 

(R4)*,R2 

(R5)*,(R5)+ 

#"0/R3 

R3,(R0)+ 

(PC) + 



1$ 

(RO)* 
PC 



;;save registers 

;;pickup the data pointer 

//get address of "$decvl" string 

;?put address of asciz string on stack 

;;pickup the binary number 

>>set up to do 10 conversions 
;;address of ten power 

;?cleap partial 
;;subtract TEN power 



;;bp if ten power to large 
;;add 1 to partial 

J?LOCP 

j>restore subtracted value 



?jmcve to next ten power 
; j change partial to ascii 
;?save IT 

;?DONE? 

??BR IF NO 
) JTERMINATCP 
//RESTORE REGISTERS 
>?RETURN 
;;1.0E09 

;;i.0E08 

;?1.CE07 
;?1.0E06 
;?1.CE05 
;?1.0E04 

;;i.0E03 
;;l.0E02 
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012622 
012624 

012626 
012630 
012632 
C12634 



000000 
GC0C12 
000000 
000001 
000000 
0C0014 





12 ;?1.CE01 



1 ;;l.0E00 



SUECVL: .BLKB 12. ; ; RESERVE STORAGE FOR ASCIZ STRING 

.SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

;*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 

;*UNSIGNED DECIMAL ASCIZ NUMBER. 

;*CALL 

;* MOV NUMBER, -(SP) ;?PUT BINARY NUMBER ON THE STACK 

;* JSR PC,@#$SB2D ??CALL 

/* RETURN ;;ADDKESS OF THE 1ST ASCIZ CHAR. IS ON THE STACK 



012650 


016637 


000002 012700 


SSB2D: 


MOV 


2(SP),1$ 


;?SAVE BINAPY NUMBER 


012656 


012746 


012700 




MOV 


#1$,-(SP) 


;;set POINTER 


012662 


004737 


012454 




JSR 


PC,@#$DB2D 


;;call dcuble length CONVERT 


012666 


062716 


O00OC5 




ADD 


#5,(SP) 


;;ONLY ALLOW FIVE CHARACTERS 


012672 


012666 


000002 




MOV 


(SP)+,2(SP) 


;;pickup POINTER 


012676 


000207 






RTS 


PC 


;?RETURN 


012700 


000000 


000000 


1$: 


♦'WORD 


0,0 
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.SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 

•J*************************************************************** 
;*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
;*UNSIGNEC OCTAL ASCIZ NUMBER. 
;*CALL 

;* MOV #PNTR,-(SP) POINTER TO LOW WORD OF BINARY NUMBER 

>* JSP PC,Pff$DB20 JJCALL THE ROUTINE 

;* RETURN ; ; THE ADDRESS CF THE FIRST ASCIZ CHAR. IS CN THE STACK 



012704 


104411 




SDB20: 


SAVREG 




;?SAVE ALL REGISTERS 


012706 


016601 


000002 




MOV 


2(SP),R1 


;;PICKUP THE POINTER TO LOU WORD 


012712 


012705 


013023 




MOV 


#$0CTVL+13.,R5 


;;phinter to data table 


012716 


012704 


000014 




MOV 


#12.,R4 


J?DO ELEVEN CHARACTERS 


012722 


012703 


177770 




MOV 


#-C7,R3 


;?mask 


012726 


012100 






MOV 


(R1)*,R0 


;?LCWFR WORD 


012730 


012101 






MQV 


(R1)+,R1 


;;HIGH WORD 


012732 


005002 






CLR 


R2 


;;termina?or 


012734 


110245 




IS: 


MOVB 


R2,-(R5) 


;?PUT CHARACTER IN DATA TABLE 


012736 


010002 






MOV 


R0,R2 


?;GET THIS DIGIT 


012740 


005304 






DEC 


R4 


;;COUNT THIS CHARACTER 


012742 


C03007 






BGT 


3$ 


;;BR IF NOT THE LAST DIGIT 


012744 


001405 






BSQ 


2$ 


;?BR IF IT IS THE LAST DIGIT 


012746 


0C520f 






INC 


R5 


j;ALL DIGITS DONE-ADJUST POINTER FOR FIRST 


012750 


010566 


000002 




MOV 


R5,2(SP) 


;?ASCIZ CHAR. & PUT IT DN THE STACK 


012754 


104417 






RESREG 




; JRFSTORE ALL REGISTERS 


012756 


000207 






RTS 


PC 


;;RETURN TC USER 


01276C 


0C62C3 




2$: 


ASR 


R3 


;;POSITIQN THE MASK FOR THE LAST DIGIT 


01276? 


006001 




3$: 


ROP 


Rl 


??POSITION THE PINARY NUMPEP FOR 


012764 


006000 






ROP 


RO 


?? THE NEXT OCTAL DIGIT 


C12766 


0C6CC? 






ROR 


Rl 




012770 


006000 






ROR 


RO 




012772 


006001. 






ROR 


Rl 




012774 


006000 






ROti 


i*0 




012776 


04030* 5 






BIC 


R3,P2 


;;mask out all junk 


013000 


062702 


000060 




ADD 


Jj*0,R2 


;?MAKE THIS CHAR. ASCII 


013004 


00075? 






BR 


IS 


;?G0 PUT IT IN THE DATA TABLE 


013006 


000016 




$octvl: 


» BLKB 


14. 


; JRESERVE DATA TABLE 
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-SBTTL SINGLE LENGTH BINARY TC OCTAL ASCIZ ROUTINE 



013C24 
013032 
013036 
013042 
013046 
013052 
013054 



016637 
012746 



000002 
013054 



004737 012704 

062716 000C05 

012666 000002 
000207 

000000 000000 



;j*************************************************************** 

;*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 

;*UNSIGNED OCTAL ASCIZ NUMBER. 

;*CALL 

;* MOV NUMBEP/-(SP) ; JPUT BINARY NUMBER ON THE STACK 

;* JSR PC / (?#SSB20 ? J CALL 

;* RETURN 



013054 SSB2C : 



HOV 
MOV 
JSR 
ADD 
MCV 
RTS 
.^ORD 



2(3?),!$ 

rtl$/-(SP) 

PC,@#SUB20 

#5,(SP) 

(SP)*,2(SP) 

PC 

0,0 



;;addhess of ist asciz char, is on the stack 
;;savf the binary number 

;;set POINTER 

;;CALL DOUBLE LENGTH CONVERT ROUTINE 
;;CNLY ALLOW SIX CHARACTERS 
/ 7 PICKUP POINTER 
; J RETURN 
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. SBTTL TRAP DECODER 

***************************************************************** 

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;* AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*GQ TO THAT ROUTINE. 



013060 


016646 


000002 


$TRAP: 


MCV 


2(SP),-(SP) 


?;assume the status of 


C13064 


042716 


000020 




B1C 


$20/(SP) 


THE CALLER—DO NOT ALLOW 


013070 


012746 


013076 




MOV 


#1$,-(SP) 


T-BIT TRAPS 


013074 


000002 






RTI 




;?SET THE NEW STATUS 


C13C76 


C10C46 




1$: 


MOV 


RC/-(SP) 


??SAVE RO 


013100 


016600 


000002 




MCV 


2(SP),R0 


/ ?GET TRAP ADDRESS 


013104 


005740 






TST 


-(RO) 


;;backup by 2 


013106 


111000 






MOVB 


(RO)/RO 


;;GFT RIGHT BYTE OF TRAP 


CI 31 10 


022700 


000044 




CMP 


#$TERM / RO 


;;CFECK FOR OUT OF POUNDS 


013114 


00300? 






EGT 


.♦6 


;?BR IF OK 


013116 


000000 






HALT 




>?OUT OF BOUNDS 


013120 


OC0776 






BP 


.-2 


;?HANGUP 


01312? 


006300 






ASL 


RO 


^POSITION FOR INDEXING 


013124 


016000 


013144 




MOV 


$TRPAO(R0),R0 


;;INDEX TO TABLE 


013130 


000200 






RTS 


RO 


;?G0 TO ROUTINE 



013132 011646 
C 1 3 134 C16t6f 
01314"' 000002 



013144 
013146 
C 13150 
01315? 
013154 
013156 



01313? 
01024? 
C1062? 
010606 
010646 
C1036? 



;;this is use to handle the "getpri" macro 

STKAP2 



CC0004 0000C2 



MCV 
MGV 
RTI 



(SP),-(SP) 
4(SP),2(SP) 



;?MCVE THE PC DOWN 
;?MCVE THE PSW DOWN 
) J RESTORE THE PSW 



SBTTL TRAP TABLE 



*THI3 TABLE CONTAINS THE STARTING ADDRESSES CF THE ROUTINES CALLED 
*BY THE "TRAP" INSTRUCTION. 



$TRP AD : .WORD 
$TYPE 
STYPOC 
STYPOS 
$TYPON 
$TYPDS 



STRAP2 
?;CALL=TVPE 

;;call=typoc 
/ jcall=typ0s 
;;call=typon 
;?call=typds 



TRAP + K104401) 
TRAP + 2UQ44C2) 
TRAP+3C104403) 
TRAP+4(104404) 
TRAP45(104405) 



TTY TYPFUUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZERCS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



013160 
013162 
013164 
013166 
013170 
C13172 
013174 
013176 
013200 
013202 



01166? 
012002 
012/76 
010146 
010204 
011546 
011502 
011034 
0114CC 
011410 



$RDCHR 

$RDLIN 

SPDDEC 

$SAVREG 

$RESREG 

$PRHDR 

$PRINT 

$LOAD 

SMLOAD 

$CNLD 



;;call= 

;?CALL: 

;;call- 

??CALL= 

;;call: 
;;call= 
??call= 

;?CALL: 

;;call: 
;?call= 



RDCHR 

RDLIN 

RDDEC 

SAVREG 

RESREG 

PRTHDR 

PRINT 

LOAD 

MLOAD 

CNLOAD 



TRAP+6(104406) 

TRAP+7(104407) 

TPAP+10(104410) 

TRAP+1K104411) 

TRAP + 12U04412) 

TRAP+13(104413) 

TRAP+14(104414) 

TRAP+15(104415) 

TRAP + 16U04416) 

TRAP*17(104417) 



TTY TYPEIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 

READ A DECIMAL NUMBER FROM TTY 

SAVE R0-R5 ROUTINE 

RESTORE R0-R5 ROUTINE 

PRINT TEST HEADER 

PRINT ROUTINE 

LOAD CHAR ROUTINE 

MULTIPLE CHAR LOAD 

LOAD CONVERTED NUMBER 
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013204 007052 SCHECK > ; C ALL=CHECK TRAP + 20 ( 104420 ) CHECK FOR KYBD OR SW KEG CONTROL 

^13 "06 0C7117 SHOLD ;;CALL=H0LD TRAP* 21 ( 104421 ) WAIT FOP OPERATOR ACTION 

000044 $TERM=.-$TRPAD 
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Pll 26 


l-FEP-77 


15:08 




POWER 1 


DOWN AND 


UP ROUTINES 












.SbTTL 


POWER 


DOWN AND UP ROUTINES 










***************************************************************** 










1P0WER 


DOWN ROUTINE 




013210 


012737 


013350 


000024 


SPwRDN 


: MOV 


#$ILLUP,@#PWRVEC 


;?SET FOR FAST UP 


013216 


012737 


0C034C 


000026 




MOV 


#340,(?#PWPVEC + 2 


;?PRI0:7 


013224 


010046 








MOV 


R0,-(SP) 


;;push RO ON STACK 


013226 


010146 








MOV 


Rlr-(SP) 


;?PUSH Rl CN STACK 


013230 


C1024C 








MOV 


R2/-(SP) 


;;PUSH R2 ON STACK 


013232 


010346 








MOV 


R3,-(SP) 


;;PUSH R3 ON STACK 


013234 


010446 








MOV 


R4,-(SP) 


;;PUSH R4 ON STACK 


012236 


010546 








MOV 


R5,-(SP) 


;?PUSH R5 ON STACK 


013240 


017746 


165676 






MOV 


@SWR,-(SP) 


JJPUSH <aSWR ON STACK 


013244 


010637 


013354 






MOV 


SP,$SAVR6 


;;save sp 


013250 


012737 


013262 


000024 




MOV 


#$PWRUP,@#PWRVEC 


}}SE1 UP VECTOR 


C13256 


coococ 








HALT 






013260 


000776 










.-2 


;?HANG UP 










..**** 


************************** 


********************************* 










;P£iWER 


UP ROUTINE 




013262 


012737 


013350 


000024 


SPWRUP 


: MOV 


#$ILLUP,@#PWRVEC 


>?SET FOR FAST DOWN 


013270 


013706 


013354 






MOV 


■5SAVR6/SP 


? /GET SP 


013274 


005037 


013354 






CLR 


SSAVR6 


;;WAIT LOOP FOR THE TTY 


C 3300 


0T5237 


013354 




IS: 


INC 


SSAVK6 


;?WAIT FOP THE INC 


013304 


001375 








°NE 


IS 


;?OF WORD 


013306 


012677 


165630 






MOV 


(SP)*,@SWR 


;;POP STACK INTO §SWR 


013312 


012605 








MOV 


(SP)*,R5 


;;POP STACK INTO R5 


C 1 3 3 14 


01 26C4 








MOV 


(SP)+,R4 


;?POP STACK INTO R4 


013316 


012603 








MOV 


(SP)+,R3 


??POP STACK INTO R3 


013320 


012602 








MOV 


(SP)+,R2 


>?POP STACK INTO R2 


C13322 


0126 CI 








MQV 


(SP)* # R1 


;?POP STACK INTO Pi 


013324 


012600 








MOV 


(SP)+,R0 


;?POP STACK INTO RO 


013326 


012737 


013210 


000024 




MOV 


i|$PWRDN/@#PWRVEC 


;;SET UP THE POWER DOWN VECTOR 


C13334 


012737 


000340 


C00026 




MOV 


#340/§#PWRVEC+2 


;;prio:7 


013342 


104401 








TYPE 




;?REP0RT THE POWER FAILURE 


013344 


015215 






SPWRMG 


: -WORD 


PWRMSG 


;;P0WER FAIL MESSAGE POINTER 


013346 


000002 








RTI 






C 1 3350 


ccoccc 






SILLliP 


: HALT 




??THE POWER UP SEQUENCE WAS STARTED 


013352 


000776 








EP 


.-2 


; } BEFORE THE POWER DOWN WAS COMPLETE 


013354 


000000 






$SAVR6 


: 




;?PHT THE SP HERE 
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;////////////////////////////////////////////////////////////////////// 

.SBTTL TEST ADDRESS TABLE 

/THE PRINTING TEST SEQUENCE STAFTS WITH TFST20 

;TD REMOVE A TEST FROM THE PROGRAM - 

^DEPOSIT ZERO FOR THE TEST ADDRFSS IN THIS TABLE 

;A MINUS ONE (-1) IN THE TABLE INDICATES THE END OF THE PRINTING SEQUENCE 

;////////////////////////////////////////////////////////////////////// 



01 335C 


QC2254 


TAT: TESTO 




013360 


003072 


TEST1 




013362 


003262 


TFST2 




013364 


000000 





;test3 


C12366 


OCOOOO 





;test4 


013370 


000000 





?TEST5 


013372 


000000 





;test6 


013374 


000000 





;test7 


013376 


ocococ 





?testic 


013400 


000000 





JTEST11 


013402 


000000 





;testi2 


013404 


000000 





/TEST13 


013406 


oooooc 


c 


;testi4 


013410 


000000 





/TESTIS 


013412 


000000 





;testi6 


013414 


000000 





;testi7 


013416 


0C3614 


TEST2C 




013420 


00366? 


TEST21 




013422 


003772 


TEST22 




013424 


004060 


TEST23 




C13426 


004114 


TEST24 




013430 


004406 


TEST25 




013432 


004770 


TEST26 




013434 


005062 


TEST27 




CI 3436 


0C52C0 


TEST30 




013440 


005226 


TEST31 




013442 


177777 


-1 


/TEST32 


013444 


000000 





>TEST33 


(P 3446 


OCOCOC 





;TEST34 


013450 


000000 





JTEST35 


013452 


000000 





;TEST36 


013454 


000000 





?TEST37 


013456 


cooccc 





;test4C 


013460 


000000 





;test41 


013462 


000000 





;TEST42 


013464 


000000 





>TEST43 


C13466 


ocococ 





?TEST44 


013470 


000000 





JTEST45 


013472 


000000 





;TEST46 


013474 


000000 





;TEST47 


C12476 


0C534C 


TEST50 




013500 


000000 





;test51 


01350? 


000000 





;TEST52 


013504 


000000 





;TEST53 


012506 


ococcc 





;TEST54 
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013510 
013512 
013514 
CI 3516 
013520 
013522 
013524 
013526 
013530 
013532 
013534 
013536 
013540 
013542 
013544 
013546 
013550 
013552 
013554 



000000 
000000 
000000 
CC554T 
005654 
005766 
00605P 
CC6174 
000000 
OOOOOC 
000000 
00000^ 
000000 
OOOOOC 
000000 

ococcr 

000000 
006514 
00653* 







TEST60 

TEST61 

TEST62 

TEST63 

TEST64 







C 











TEST7* 
TEST77 



JTEST55 
;TEST56 
;TEST57 



JTEST65 
?TEST66 
;TEST67 

;test?c 
;test71 

/TEST72 
;TEST73 
>TEST74 
;TEST75 



013556 
013560 
013562 
013564 
013566 
C 1 2570 
01357? 
013574 
013576 
012600 
013602 
013604 
013606 
013610 
013612 
013614 
013616 
0136 20 
013622 
013624 
013626 
013630 



01363: 
C13661 
013706 
013744 
014000 
G14C3? 
014070 
014117 
014144 
C14170 
014232 
014266 
014324 
01436C 
014414 
014451 
014503 
014537 
014573 
014632 
014671 
014713 



>l 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

. SBTTL ERROR MESSAGE ADDRESS TABLE 

) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 

emat: EPRl 
ERR 2 
EPR3 
ERR4 
ERRS 
ERR6 
ERR7 
ERR10 
ERR11 
EPR12 
ERR13 
ERR14 
ERR15 
ERR 16 
ERR17 
ERR20 
ERR21 
ERR22 
ERR23 
ERR?4 
ERR25 
ERP26 
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;////////////////////////////////////////////////////////////////////// 

. SBTTL ERROR MESSAGES 

/////////////////////////////////////////////////////////////////////// 



KAINDF.C- 
DZLAEB.P 



013632 


051105 


047522 


020122 


EKH1: 


.ASCIZ 


/ERROR CLEAR/ POWER OFF/ 


013640 


046103 


040505 


C26122 






013646 


050040 


053517 


051105 








013654 


047440 


043106 


000 








013661 


122 


040505 


054504 


ERR2 : 


*ASCIZ 


/READY SET/ POWER OFF/ 


013666 


05144C 


052105 


C20054 








013674 


047520 


042527 


020122 








013702 


043117 


000106 










013706 


051105 


047522 


020122 


ERK3: 


* ASCIZ 


/ERROR CLEAR/ PRINTER OFF LINE/ 


013714 


046103 


0405C5 


026122 








013722 


050040 


044522 


052116 








013730 


051105 


047440 


043106 








013736 


046040 


047111 


000105 








013744 


0425S2 


042101 


020131 


ERR4: 


4 ASCIZ 


/READY SET/ PRINTER OFF LINE/ 


013752 


042523 


026124 


050040 








013760 


044522 


052116 


051105 








013766 


047440 


043106 


046040 








C13774 


047111 


C00105 










014000 


051105 


04752? 


020122 


ERR5: 


-ASCIZ 


/ERROR SET, PRINTER ON LINE/ 


014006 


042523 


026124 


050040 








014014 


044522 


052116 


051105 








014022 


C4744C 


020116 


044514 








014030 


042516 


000 










014033 


122 


040505 


054504 


ERR6: 


-ASCIZ 


/READY CLEAR/ PRINTER ON LINE/ 


014040 


041440 


042514 


051101 








014C46 


020054 


051120 


C47111 








014054 


042524 


020122 


047117 








014062 


046040 


047111 


000105 








014070 


051105 


047522 


020122 


ERR7: 


^ASCIZ 


/ERROR CLEAR, PAPER CUT/ 


014076 


04610? 


C40505 


C26122 








014104 


050040 


050101 


051105 








014112 


047440 


052125 


000 








014117 


122 


040505 


054504 


ERR10: 


: *'ASCIZ 


/READY SET, PAPER OUT/ 


014124 


051440 


052105 


020054 








014132 


040520 


042520 


020122 








014140 


052517 


000124 










014144 


051105 


047522 


020122 


ERRll! 


: 4 asciz 


/ERROR DID NOT CLEAR/ 


C14152 


044504 


020104 


047516 








014160 


020124 


046103 


040505 








014166 


000122 












014170 


042522 


042101 


020131 


ERR12! 


1 .ASCIZ 


/REAUY NOT SET AFTER ERROR CLEARED / 


C14176 


0475K 


050124 


045523 








014204 


020124 


043101 


042524 








014212 


020122 


051105 


047522 








014220 


020122 


046103 


040505 








014226 


042522 


000104 










014232 


051105 


047522 


020122 


ERR13: 


: -asciz 


/ERROR SET AFTEF RESET INSTR/ 


014240 


04252? 


020124 


043101 








014246 


042524 


020122 


042522 








014554 


04252? 


020124 


047111 
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014262 


052123 


000122 










014266 


042522 


042101 


020131 


ERR14: 


! aASCIZ 


/READY CLEAR AFTER RESET INSTR/ 


014274 


046103 


040505 


020122 








014202 


043101 


042524 


C20122 








014310 


042522 


042523 


020124 








014316 


047111 


052123 


000122 








014324 


042522 


042101 


020131 


ERR15! 


: ^asciz 


/READY SET AFTER CHAR LOADED/ 


014332 


04255? 


020124 


C43101 








014340 


042524 


020122 


044103 








014346 


051101 


046040 


040517 








014354 


042504 


000104 










014360 


C511C5 


047522 


C20122 


ERR1C 


: .ASCIZ 


/ERROR SET AFTEF CHAR LOADED/ 


014366 


04 25 23 


020124 


043101 








014374 


042524 


020122 


044103 








014402 


051101 


046040 


040517 








G14<!10 


0425C4 


000104 










014414 


04252? 


042101 


020131 


ERR1 7 ! 


! -ASCIZ 


/READY NEVER SET, CHAR LOADED/ 


014422 


042516 


042526 


020122 








014430 


042523 


026124 


041440 








014436 


040510 


020152 


C47514 








014444 


042101 


042105 


000 








014451 


105 


051122 


051117 


ERR20: 


: -asciz 


/ERROR SET, INTERRUPT TEST/ 


014456 


051440 


052105 


020054 








014464 


04711! 


042524 


051122 








014472 


050125 


020124 


042524 








014500 


0521 23 


000 










014503 


122 


040505 


054504 


ERR211 


: -ASCIZ 


/READY CLEAR, INTERRUPT TEST/ 


014510 


04144C 


042514 


051101 








014516 


020054 


047111 


042524 








014524 


051122 


050125 


020124 








014532 


042524 


052123 


000 








014537 


12C 


044552 


052116 


ERR25: 


: -ASCIZ 


/PRINTER INTER ABOVE LEVEL 3/ 


014544 


051105 


044440 


052116 








014552 


051105 


040440 


047502 








014560 


042526 


046040 


053105 








014566 


0461 05 


03144C 


000 J 








014573 


1 If 


020117 


051120 


ERK23: 


: AASCiz 


/NO PRINTER INTFR EFLOW LEVEL 4/ 


014600 


047111 


042524 


020122 








014606 


0471 11 


042524 


020122 








014614 


0425 02 


0475 14 


C201 27 








014622 


042514 


042526 


020114 








014630 


00006* 












014632 


051120 


047111 


042524 


ERR24: 


: iASCiz 


/PRINTER ERROR BEFORE CHAR LOAD/ 


014640 


020122 


051105 


047522 








014646 


020122 


042502 


047506 








014654 


042522 


041440 


040510 








014662 


020122 


047514 


042101 








014670 


CCC 












014671 


120 


044522 


052116 


ERR25: 


: .asciz 


/PPINTER NOT READY/ 


014676 


051105 


047040 


052117 








014704 


051040 


040505 


054504 








C14712 


cor 












014713 


120 


044522 


052116 


ERR26 : 


: -ASCIZ 


/PRINTER ERROR AFTER CHAR LOAD/ 


014720 


051105 


042440 


051122 








014726 


051117 


040440 


052106 








014734 


051105 


041440 


C40510 
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014742 
014750 



020122 

000 



047514 042101 
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014751 


200 


020043 


047503 


COLUMN : 


.ASCIZ 


<CRLF>/# COLUMNS - 1 


C14756 


052514 


047115 


C20123 








014764 


020075 


000 










014767 


200 


042523 


042514 


SELTST : 


.ASCIZ 


<CRLF>/S ELECT TEST « 


014774 


052103 


052040 


051505 








015002 


C20I 2A 


020C43 


020040 








015010 


000 












015011 


012 


052012 


051505 


TSTNO : 


aASCIZ 


<LFXLF>/TEST NUMBER 


015016 


020124 


052516 


041115 








C15024 


051105 


020C4C 


COO 








015031 


040 


041440 


046117 


colmn: 


•ASCIZ 


/ COLUMNS/<LF> 


015036 


046525 


051516 


000012 








015044 


052200 


051505 


020124 


ETSTNO: 


. ASCIZ 


<CRLF>/TEST #/ 


015C52 


0C0C43 












015054 


020054 


050040 


036503 


pcmsg: 


*ASCIZ 


/, pc=/ 


015062 


000 












015063 


054 


020040 


051105 


ERR : 


.ASCIZ 


/, ERROR #/ 


C1SC70 


C4752? 


020122 


000043 








015076 


020054 


000040 




ERRS : 


.ASCIZ 


/, / 
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015102 


042412 


042116 


C47440 


PASMSG: 


.ASCIZ 


<LF>/END OF PASS #/ 


015110 


020106 


040520 


051523 








015116 


020040 


000043 










015122 


051600 


051127 


036440 


DSMSGl: 


.ASCIZ 


<CRLF>/SWR = / 


C 15130 


000040 












015132 


020040 


047040 


053505 


DSMSG2: 


.ASCIZ 


/ NEW = / 


015140 


036440 


000040 










015144 


040527 


052111 


047111 


WTMSG : 


.ASCIZ 


/WAITING/ TYP SPACE TO CONTI NUE /<CRLF> 


C 1515 2 


C26107 


020C40 


054524 








015160 


020120 


050123 


041501 








015166 


020105 


047524 


041440 








015174 


047117 


044524 


052516 








C 15202 


1001C5 


CCC 










015205 


103 


040510 


020122 


TCHAR: 


. ASCIZ 


/CHAR = / 


015212 


02007* 


000 










015215 


200 


047520 


042527 


PWRMSG: 


.ASCIZ 


<CRLF>/POWER/<CRLF> 


015222 


1C01 22 


COO 










015225 


012 


047516 


041440 


NCMSG: 


•ASCIZ 


<LF>/NO CONSOLE TERM INAL/<LF> 


015232 


047117 


047523 


042514 








015240 


052040 


051105 


044515 








015246 


4 05 16 


0C5114 


000 








015251 


120 


044522 


052116 


MANMSC: 


.ASCII 


/PRINT SPEED MANUAL T IM I NC /<CPLF > 


015260 


051440 


042520 


042105 








015266 


04o440 


047101 


040525 








015274 


C20114 


044524 


C44515 








015^02 


043516 


200 










015305 


12C 


052125 


051440 




-ASCII 


/PUT SWITCH 12 UP TO START TIMING/<CRLF> 


015312 


044527 


041524 


020110 








C15320 


oncti 


05244C 


C20120 








015326 


047524 


051440 


040524 








015334 


052122 


052040 


046511 








015342 


047111 


100107 










C15346 


052520 


020124 


C53523 




.ASCI 7 


/PUT SWITCH 12 DOWN AT END OF 1 M I NUTE/<CRLF> 


015354 


052111 


044103 


030440 








015362 


020062 


047504 


047127 








015370 


040440 


020124 


047105 








C15?76 


C201C4 


043117 


C30440 * 








015404 


046440 


047111 


052125 








015412 


100105 


000 










015415 


105 


052116 


051105 


T64MSG : 


i ASCIZ 


/ENTER PATTERN PER LISTING OR DOCUMENT /<CRLF> 


C15422 


C50C4T 


052101 


C42524 








015430 


047122 


050040 


051105 








015436 


046040 


051511 


044524 








015444 


043516 


047440 


020122 








015452 


0475C4 


052503 


042515 








015460 


052116 


000200 










015464 


003407 


000200 




TKQBEL : 


.ASCIZ 


<7><7><CRLF> 


015470 


050200 


044522 


052116 


PRSPl: 


.ASCIZ 


<CRLF>/PRINT SPEED IS / 


C15476 


05144C 


042520 


C42105 








015504 


044440 


020123 


000 








015511 


101 


050120 


047522 


PRSP2 : 


*ASCIZ 


/APPROX. / 


015516 


027130 


000040 










C15522 


020040 


044514 


042516 


PRSP3: 


. ASCIZ 


/ LINES/<57>/MINUTE , WITH / 


015530 


027523 


044515 


052516 








015536 


042524 


026040 


053440 








015544 


052111 


020110 


000 
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015551 


C40 


041440 


C40510 


PRSP4: 


* ASCI7 


015556 


051522 


046057 


047111 






015564 


1001 0? 


000 








015567 


1 24 


051125 


020116 


TOKSGO: 


« ASCIZ 


C15574 


C47520 


042527 


C20122 






015602 


043117 


020106 


020046 






015610 


042523 


020124 


043117 






015616 


020106 


044514 


042516 






C 15 € 24 


00020^ 










015626 


045517 


020054 


052524 


T0NSG1: 


.ASCIZ 


015634 


04712? 


050040 


053517 






015642 


051105 


047440 


100116 






015650 


CCC 










015651 


117 


026113 


051440 


T0MSG2: 


• ASCIZ 


015656 


052105 


050040 


044522 






015664 


052116 


051105 


052040 






C15672 


0201 17 


047117 


C46055 






015700 


047111 


100105 


000 






015705 


117 


026113 


052040 


T0MSG3 : 


•ASCIZ 


015712 


054522 


050040 


050101 






015720 


0511 C5 


047440 


0521 25 






015726 


051440 


044527 


041524 






015734 


100110 


000 








01 5737 


117 


026113 


051040 


T0HSG4 : 


^ASCIZ 


Q15744 


05 1505 


047524 


C42522 






015752 


050040 


044522 


052116 






015760 


0511 05 


052040 


020117 






015766 


0471 17 


046055 


047111 






015774 


1C01 C5 


CCC 








015777 


055 


026455 


026455 


T1MSG1 : 


•ASCIZ 


016004 


000040 










016006 


044440 


041516 


020110 


T1KSG2: 


.ASCIZ 


016014 


C475C* 


046522 


C43C40 






016022 


042505 


020104 


026455 






016030 


026455 


006455 


000 






016035 


123 


052105 


043040 


T1MSG3 : 


•ASCIZ 


Q16C4 2 


C51117 


020115 


042506 






016050 


042105 


051440 


044527 






016056 


041524 


020110 


047524 






016064 


020040 


000 








0UC67 


C4C 


04444Q 


C41516 


T1MSG4: 


•ASCI7 


016074 


042510 


020123 


020046 






016102 


042504 


C51120 


051505 






016110 


020123 


047524 


020106 






ciene 


042522 


042523 


C20124 






016124 


053523 


052111 


044103 






016132 


00020C 










016134 


047516 


046440 


052105 


T2EM : 


^ASCIZ 


C16142 


04751C 


02C1C4 


C43117 






016150 


052040 


046511 


047111 






016156 


020107 


053101 


044501 






016164 


040514 


046102 


100105 






016172 


CCC 
016174 








. EVEN 



ASCIZ /OK, TURN POWER ON/<CRLF> 



ASCIZ /OK/ SET PRINTER TO GN-LINE/<CRLF> 



•ASCIZ /OK/ TRY PAPER OUT SW ITCH/<CRLF> 



^ASCIZ /OK/ RESTORE PRINTER TO ON-Ll NE/<CRLF> 



ASCIZ /SET FORM FEED Sis ITCH TO / 



ASCI7 / INCHES & DEPRESS TOF RESET SWITCH/<CFLF> 



iASClZ /NO METHOD OF TIMING AVA IL ABLE/<CRLF> 
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016174 047531 020125 047506 TABL64: .ASCIZ /YOU FORGOT TO FNTER DATA? CTL-SPACE/<LF> 

016202 04352? 052117 052040 

016210 020117 047105 042524 

016216 020122 040504 040524 

016224 020C73 052103 C26514 

016232 050123 041501 005105 

016240 000 

JCPEN-ENUEO TABLE FOR TEST 64 DATA. 



000001 



.F.*'D 



MA IN DEC 


-1 l-CZLAE-B 


MACYU 27(1006) 01-WAR 


-77 14:45 


PAGE 97 










DZLAEB. 


Pll 28-FSB-77 


15: C8 


SYMBCL 


TABLE 












ACCEPT 


006210 


EHAT 


013556 


NXTADR 


011142 


STRDNE 


001152 


TEST64 


006174 


ACTFST 


001130 


EMT V tC = 


000030 


P ASCNT 


005652 


SVTST 


01 1660 


TEST76 


006514 


BITC = 


CC CCO 1 


END ADR 


006512 


PASHSG 


C15102 


SWR 


001142 


TEST77 


006534 


BITOO = 


000001 


ERR 


015063 


PCMSG 


015054 


SWRFG 


000176 


TKB 


001102 


BITOl = 


000002 


ERRS 


015076 


PIRG = 


177772 


SWO = 


000001 


TKS 


001100 


B I TO 2 = 


CCCCG4 


ERRVEC= 


000004 


PIRGVE= 


C00240 


swoc = 


000001 


TKVEC - 


000060 


BIT03 = 


000010 


ERR 1 


013632 


PLKS 


001134 


SW01 = 


000002 


TLOOP 


001154 


BIT04 = 


000020 


ERR 1 


014117 


PLOAD 


011044 


SW02 = 


000004 


TORTN 


006610 


BITC5 = 


CC0C4C 


ERR 1 1 


014144 


PRINT = 


104414 


SW03 = 


000010 


TPB 


001106 


BIT06 = 


000100 


ERR 1 2 


014170 


PROP AT 


006424 


SW04 = 


000020 


TPS 


001104 


BIT07 = 


000200 


ERR13 


014232 


PRPAT 


006466 


SW05 = 


000040 


TPVEC = 


0000O4 


BIT08 - 


000400 


ERR 14 


014266 


PRSP 1 


C15470 


swoe = 


0001CO 


TRAP VE= 


00C034 


BIT09 = 


001000 


ERR1E 


014324 


PPSP2 


015511 


SW07 = 


000200 


TRQNE 


001153 


BIT1 = 


000002 


ERR16 


014360 


PRSP3 


015522 


SWOB = 


000400 


TRTVEC= 


000014 


BITIO = 


002000 


ERR 17 


014414 


PRSP 4 


C15551 


SWQ9 = 


001000 


TSEL 


007510 


BIT11 = 


004000 


ERR 2 


013661 


PRTHDR= 


104413 


SKI = 


000002 


TSTNO 


015011 


BIT12 = 


010000 


ERR 20 


014451 


PRTSET 


005442 


swio - 


002000 


TWOBEL 


015464 


BIT13 = 


020000 


ERR21 


014503 


PRC = 


COOOOO 


S«ll = 


004000 


TYPDS = 


104405 


BIT14 = 


C4CC00 


ERR 22 


014537 


PR1 = 


000040 


SW12 = 


010000 


TYPE = 


104401 


BIT15 = 


100000 


ERR23 


014573 


PR2 = 


000100 


SW13 = 


020000 


TYPOC = 


104402 


BIT2 = 


000004 


ERR 24 


014632 


PR3 = 


000140 


SW14 = 


040000 


TYPON = 


104404 


BIT2 = 


0CCC10 


ERR2E 


014671 


PR 4 = 


000200 


SW15 = 


100000 


TYPOS = 


104403 


BIT4 = 


000020 


EPR26 


014713 


PR5 = 


000240 


SW2 = 


000004 


TOMSGO 


015567 


BITS = 


000040 


ERR3 


013706 


PR6 = 


000300 


SK3 = 


000010 


T0MSG1 


015626 


BIT6 = 


CCC1 00 


EPR4 


013744 


PR7 = 


000340 


SW4 = 


000020 


T0MSG2 


015651 


BIT? = 


000200 


ERR5 


01 4000 


PS = 


177776 


SW5 = 


000040 


T0MSG3 


015705 


BIT8 = 


000400 


ERR6 


014033 


PSW = 


177776 


SW6 = 


000100 


T0MSG4 


015737 


BIT9 = 


C01 CCO 


ERR7 


014070 


PWRMSG 


015215 


SW 7 = 


000200 


T1MSG1 


015777 


BPTVEC= 


000014 


ETSTNO 


015044 


PWRVEC= 


C00024 


S¥d - 


000400 


T1MSG2 


016006 


CHACTR 


006510 


EXIT 


006644 


GU01 


001764 


SW9 = 


001000 


T1MSG3 


016035 


CHECK = 


1C4420 


FF = 


0C0014 


QUC2 


C02032 


TABL64 


016174 


T1MSG4 


016067 


CHLD 


005440 


FSTPAD 


001126 


RDCHR = 


104406 


TAT 


013356 


T2EM 


016134 


CKFLAG 


001155 


FSTSAD 


001124 


RDDFC = 


104410 


TBITVE= 


000014 


T2SP 


003400 


CNLC AD= 


1C4417 


HOLD = 


1C4421 


RDLIN = 


1044C7 


TCHAR 


015205 


T50M1 


005424 


CNTP 


006606 


HT = 


000011 


RFPORT 


010044 


TERR 


006164 


T50M2 


005430 


COLCTR 


006506 


IOTVFC= 


000020 


RESREG= 


104412 


TFSTO 


002254 


T50PCT 


005422 


CCLMN 


! 5 C 3 ! 


KYBDF 


007140 


RESTRT 


CC1210 


TEST1 


003072 


T64MSG 


015415 


COLUMN 


014751 


KY3DST 


007442 


RESVEC= 


000010 


TEST2 


003262 


WIDTH 


001150 


CONTRL 


001220 


LHPTR 


011040 


RSTATR 


011316 


TEST20 


003614 


WTMSG 


015144 


CR = 


000015 


LF = 


000012 


R6 = 


*C0C006 


TEST 21 


003662 


$BELL 


001156 


CPLF = 


000200 


LKS 


001140 


P7 = 


*000007 


TEST22 


003772 


SCHECK 


007052 


CSBR 


001136 


LKSRV 


006566 


SAVREG= 


104411 


TEST 23 


004060 


SCNLO 


011410 


CTLA 


00o346 


LOAD = 


104415 


SELECT 


CC6752 


TEST 24 


004114 


SCNTLG 


012247 


CTLE 


0C6362 


LPB 


001116 


SELTST 


014767 


TEST25 


004406 


SCNTLU 


012242 


DC I 


006556 


LPCTR 


001132 






TEST26 


nt\ Aim 
UU h 1 /U 


$CR 


00116 4 


DDISP = 


177570 


LPKB 


001112 


SLOAD 


011206 


TEST27 


005062 


SCRLF 


001161 


DISPLA 


001144 


LPKS 


0C1110 


SPD 


003500 


TEST30 


005200 


$DBLK 


010576 


DISPRE 


000174 


LPS 


001114 


SP3 


005434 


TEST31 


005226 


$DB2D 


012454 


DSWSGl 


015122 


MANMSG 


015253 


3RDCI 


006614 


TEST50 


005340 


SD32C 


012704 


DSMSG2 


015132 


MINCNT 


006612 


STACK = 


CC1100 


TEST60 


005540 


SDECVL 


012634 


DSWP = 


177570 


MLO AD = 


104416 


START 


001174 


TEST61 


005654 


SDOAGN 


005332 


DJJNCQL 


006454 


NCMSG 


015225 


STARTX 


001226 


TEST62 


005766 


$DTBL 


01C566 


DUNPAT 


C06446 


NUMLP 


001122 


STKLMT= 


177774 


TEST63 


006050 


$ENDAD 


005322 



HAINDFC-1 1-rZLAE-P MACYU 27(1006) 01-NAR-77 14:45 PAGE 98 

DZLAEE.PU 28-FEP-77 15: ^8 SYMBOL TABLE 



$ENDCT 


005306 




$L0 AD 


011034 


$QUES 


001160 


$SWR = 


162000 


$TTY IN 


012236 


$EOP 


005262 




SMLCAD 


011400 


$RDCHR 


011662 


STERM = 


000044 


STYPDS 


01C362 


$EQPCT 


0C53C0 




$MNEh 


012265 


$PDDEC 


012276 


STKP 


001102 


STYPE 


010242 


$ERROR 


007744 




SMSWS 


012254 


SPDLIN 


012002 


$TKS 


001100 


STYPEC 


010344 


SERRPC 


010040 




S NULL 


001170 


SRDSZ = 


000004 


STN 


000000 


3TYP0C 


010632 


$FF 


C01166 




$OCNT 


011030 


SRESSE 


C10204 


$TNP«R 


012564 


STYPON 


010646 


SFILLC 


001172 




SOCTVL 


013006 


SRTNAD 


005334 


$TPB 


001106 


STYPOS 


010606 


$FILLS 


001171 




SOMOCE 


011032 


SSAVSE 


010146 


STPFLG 


001173 


$$GFT4= 


000000 


$GET42 


0C5312 




$PASS 


005336 


SSAVR6 


C13354 


$TP3 


001104 


$ OF ILL 


011031 


$HD = 


000000 




SPRHDR 


011546 


SSB2D 


012650 


STRAP 


013060 




016241 


$HOLO 


007112 




SPRINT 


011502 


$SB20 


013024 


STRAP2 


013132 






SILLUP 


C13 750 




SPWREN 


013210 


$SETUP= 


CC0034 


$TRP = 


000022 






SITEMB 


010042 




SPWRNG 


013344 


$STUP = 


177777 


STRPAD 


013144 






$LF 


001162 




SPWPOP 


013262 


SSVPC = 


000200 


STSTNM 


001146 






. APS. 


CU241 


OCC 



















ERRORS DETECTED : 

DEFAULT GLCBALS GENERATED: 

DZL A EB/ DZLAEB. SEC / S OL/KL: SEQ=DZLAEP. Pll 
RUN-TIME : 16 9 .3 SECONDS 
RUN-TIME RATIO: 642/26=24.3 
CORE USED: 18K (36 PAGES) 



